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ABSTRACT 


The objective of this project is to investigate 
Vertical Steam Condenser Design in an effort to develop low 
weight, small volume condensers utilizing doubly enhanced 
(coolant and steam side augmentation) tubes. An existing 
vertical condenser analytic model for external axial rluted 
tubes was improved to include internal (ccolant side) heat 
transfer augmentation. A computer program (VERTCON-1) was 
developed to be used as a preliminary design tool for sizing 
the total condenser. <A performance comparison was conducted 
between enhanced vertical condensers, horizontal smooth and 
horizontal enhanced tube condensers. 


This analysis nas clearly demonstrated that 
Slenificant reduction in condenser weight and volume can 
be obtained for certain applications using enhanced vertical 
tube condensers. Also, ennanced vertical tube condenser 
performance compares well with present designs for enhanced 
horizontal tube condensers. 


Thesis Supervisor: Warren M. Rohsenow 
Title: Professor of Mechanical Engineering 
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The current practice in Marine Condenser Design is to 
use smooth horizontal tubes. In comparison the performance 
of horizontal tube bundles is generally lower than for a 
Single tube, this deleterious bundle effect depends on the 
pattern of accumulated condensate drainage, and the number 
of rows of tubés in a vertical arrey. This could cause a 
Significant decrease in condensing coefficient for large 
tube bundles. This sort of phenomena will not occur in 
vertical tube condensers. 

The heat transfer on these vertical tubes can be further 
enhanced by grooving the external surface of the tube (Fig.l). 
Surface tension acting through gradients in the curvature of 
the liquid meniscus will draw liquid into the grooves. The 
condensate is drawn off the tips of the flutes so that only 
a thin liquid film remains on them. The reduced thickness 
of the condensate film at the flute tip dramatically increases 
the heat transfer coefficient. 

Internal tube heat transfer augmentation is provided 
through turbulation techniques by the use of integral multiple 
helix ridging (6) as shown in Fig. 2. Therefore, these tubes 
with both external axial flutes and internal helical ridging 
can be said to be doubly augmented. The internal ridging 
provides a cost-effective form of internal roughness, which 
results in a substantial decrease in waterside thermal 
resistance. 

Condensation on fluted surfaces and the resulting enhance- 
ment of the heat transfer coefficient was first recognized 
by Gregorig (1954). It has been just till recently that this 
concept has been put into practical application. The exper- 
imental work that has been completed has clearly shown that 


the rate of condensation on fluted surfaces is several times 
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greater than that on smooth surfaces. 

Presently work is being done in the determination of 
optimum surface geometry for vertical fluted condenser tubes. 
The basic principle for optimum performance is to make the 
thickness of the condensate film on the crests of the fluted 
surface as thin as possible, and to effectively remove 
collected condensate. From analysis of MORI et al (3) the 
basic controlling factors for optimum flute performance are: 


sharp leading edge 

gradually changing curvature of flute 
SUrtace frOmells tipo the root 

Wide groove between fins to collect 
condensate 

(heorlizontal Gise set co the tube to 
remove condensate (see Fig. 3) 


EW NH 


Also, vertical tubes provided with lonzitudinally parallel 
tiny flutes is preferable because condensate film is made 
thinner over the widest possible region. As vapor condenses 

on the tube surface the grooves in the lower sections of the 
tube can fill up with condensate resulting in deterioration 

of condenser performance. The purpose of the horizontal discs 
is to remove condensate thus preventing the deleterious effects 
of this flooding condition. The spacing of the discs must 

not be too close together, since for narrow spacing of discs 
surface tension can also pull condensate on the discs up 


along the grooves causing the flooding condition. Condensate 
removal for the proposed vertical condenser design (Fig. 4) 
is accomplished by the tube support plates, where condensate 
is collected and removed to the bottom of the hotwell by 
downcomer drainage tubes. 

The flute pitch can also affect condenser performance. 
Flutes with small grooves (small pitch) are easily filled 
with condensate resulting in reduced performance. A tube 
with flutes of too large of a pitch has a smaller number of 


flute tips, and performance suffers since the heat transfer 





“e Cross-Section of 
S Vertical Slutea 
Condenser Surface 


_ Figure 1. 








Internal Heat Transfer 
Auzmentation for Vertical 
Tubde 


Gisc 
Tigure 3, 

Vertical Fluted Tube Fitted 
“ith Spaced Circular Disks 
for Condensate Pemoval 








STS 


enhancement effect is not used to a great enough extent. 
Therefore, the condenser tube provided with flutes of optimum 
Ditch for a given fluid has the best performance. The study 
conducted by MORI et al (3) has indicated that the optimum 
spacing of discs is smaller than 100 mm (3.94 in.) for water 
and for copper tubes with flute pitch on the order of 

-5 mm (.0197 in.) and flute height of .87 mm (.0343 in.). 
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FIGURE 4 


VERTICAL ENHANCED TUBE CONDENSER 
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The proposed vertical condenser arrangement for this 
investigation is shown in Figure 4+. Steam enters the 
condenser shell along a major portion of the tube length. 

Steam lanes distribute the steam around the tube bundle with 
radial steam inflow into the tube bundle towards the air 

cooler section and air removal duct. Steam condenses on the 
vertical tubes, and the condensate collects in the valley of 
the tube fluted surface flowing down the tube length. The 

tube support plates have a dual purpose by also serving as 
condensate drain-off plates. The condensate is stripped off 
the tubes and collected on the tube support plates, and then 

it is removed to the hotwell section via downcomer drainage 
tubes. Improved condensate control is afforded by this con- 
densate drainage and removal scheme. The tube support/condensate 
drain-off plates divide the condenser up into sections, where 
the full depth of tubes in each section see relatively fresh 
steam. The tubes will see fresh steam through the depth of 

the tube bundle since the tubes are not subjected to condensate 
indundation effects because of effective condensate removal 

and vertical orientation of the tubes. A continuous duct 

that runs along the total tube length is utilized for air 
removal. 

Figure 4 shows a double flow cooling water circuit with 
the inlet/outlet header located in the bottom of the condenser. 
The condenser hotwell is located below and also encases the 
inlet/outlet header. This hot-well location adds to the total 
height of the condenser. 

The possible condenser locations are either along side 
the propulsion turbine with side exhaust into the condenser, 


or located in line with the propulsion turbines with end 


exhaust into the condenser. 
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This investigation of vertical steam condensers will 
clearly establish that for certain condenser operating 
conditions significant reductions in weight and volume 
can be achieved. Performance comparisons were conducted 
with horizontal smooth and enhanced tube condensers. [In 
some respects the vertical condenser will involve complications 
in design, fabrication and propulsion system integration, 
but the techniques required are well within the scope of 
present-day technology. 

The objective of this study is to conduct a performance 
comparison between enhanced vertical steam condensers, 
horizontal smooth and horizontal enhanced tube condensers. 

The vertical condensers in this performance comparison were 
sized using the design routine established in this Suda, 
and compared with existing baseline horizontal condenser 


designs. 
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Nomenclature 


area (2t*) 

amplitude of the flute (ft) 

specific heat (BTU/lbm°F) 

Diameter (ft) 

Helical ridge height (ft) 

Friction Factor [ =(AP/p ) (D/L) (2¢,/v~)] 
Mass Flux (lom/f+t* hr ) 

Gravitational constant (lbm ft/lbf nr“) 
Heat transfer coefficient (BTU/hr rt~° 


ae) 


‘Latent heat of vaporization (BTU/lbm): 


Thermal conductivity (BTU/hr et’ oR) 

meneth (it ) 

Lead of ridge (axial distance per 360° turn) (ft) 
Operand for friction factor equation 

Nusselt number 

Pressure (lvf/ft*) or (in-hg-abs) 

Bech Ol, erdcing or flute (ft) 

Prandtl number 

Heat flow (BTU/hr) 

Operand for friction factor equation 

Reynolds number 

Flooding Reynolds number for flute[= 4W,/ux, ]** 
Thermal resistance of scale (nett F/STU) 
Thermal resistance of tube wall (nrft<°/2TU) 
Stanton number 

Temperature (°F) 

Tsat7 Tw (°F) 

Mean overall temperature difference (°F) 
Overall heat transfer coefficient (BTU/nrft* °F) 
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Dimensionless Velocity[= U/u*] * 
Epa G1, On7 Velocity }=\,2,/p % 
Velocity (ft/hr) or (ft/sec) 


Flooding axial mass flow of condensate per flute 
(lbm/hr ) 


Half-perimeter length of flute (ft) 


Subscripts 


nm O 3 HH HK O oD 


sat 


Fluid at the bulk temperature (°F) 
Condensate 

LbBLol (elie Se iLevoxel atte Ven 

Inside, or inlet 

Nominal 

Outside, or outlet 

Increment, or section 

Saturation 

Wall 


Superscripts 


je 


Dimensionless Parameter 


Greek Symbols 


a 


> F 


Q 


oe) 


HH 


t 


Height of the condensate in the center of the 
flute (ft) 


Fragment of U_t{= -2.51n(2e/d, )+ 3.75] * 
Dimensionless Group = 4P z. (eo) 4 


ue 
Dynamic viscosity (lbm/hr ft) 
Density (lbm/ft’) 
Surface Tension (lbf/ft) 
Non-dimensional group + 
Apparent wall shear stress 


Reference (6) 
Reference. (4) 
Reference (1) 
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II A. ANALYSIS SUMMARY 





The rate of heat flow Q over an entire heat exchanger 
is related to the mean overall temperature difference AT In 
and the total heat transfer area A by the overall heat 
transfer coefficient U. 


Q= UA ATs in as 


Srom the analysis of externally ridged tubes it proves 
convenient to base the heat transfer coefficient U on the 
surface area of a smooth tube having an outside diameter 
D, equal to the diameter measured over the mid-height of 
the external flutes (see Figure 1 for external flute 


geometry). 


VWs 
n 
where D = Dj + 2a (2p) 


The overall U depends on the resistances in series; 
between cooling water and the tube wall, within the tube 
wall, and between the tube wall and the working fluid. 
Fouling resistance on either side of the tube wall can be 
combined in one term Ree . 

Tube wall resistance for a smooth (non-enhanced) tube 
can be expressed as: 

RWe =- = on (D,/D; Dies (3) 
W K Z 


Where Det is the reference diameter on which the overall U 
is based on. For a fluted tube the tube wall resistance is 
also based on the nominal diameter D? and equation can be 
written: 
yer Con (00, 7/0) joke (4) 
an 





aj 


Therefore, the concept of resistances in series yields: 





n ne 2K, he 
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Pee Ge OohO Haat ete ANSFER CORFFICIENTS 


1. Smooth Internal Tube 
For the smooth internal tube the McAdams correlation 
was used for determination of the heat transfer coefficient 
for cooling water. 
se, 0.4 
| nei. O23 (CD XCD (6a) 
Ky ae k 


Or: hp ©2023 K [Rep]? Ler), 0.4 (6b) 


ane) 
D 


where: 
1) all fluid properties are evaluated at the bulk fluid 


temperature; 
2) 2300<Re,<10/ where; 
Rey = Reynolds number based upon hydraulic 
diameter 
3) 0.5<Pr <120 where; 
Pry= Prandtl number based on bulk temperature 


2. Helical Internal Ridgin 
Internal tube augmentation was also investigated, with 





the application of integral multiple helix ridging [6] as 
shown in Figure 2. 

Friction factor data was correlated by means of the 
following equation: 


/ f « 1 (7) 
eS! 2.46(1n r4#(7/Re)”™] 


For the roughness of the helical internal ridge both r and m 
are treated as variables, and are tied in with tube geometry. 
Both m and r vary with the dimensionless parameter e/1l, 

where e is the ridge height and 1 is the lead of the ridge. 


In reference [6] WITHERS has made a distinction based on 





zilo= 
the criterion p/d=e 0.36 in correlating the friction behavior 
to the internal geometry. It has been proposed that a shift 
in flow behavior occurs at p/d = 0.36. For higher values 
of p/d a greater degree of swirling could occur, compared 
with cascading of flow that takes place if p/d is less than 
O36. 

The heat transfer correlation equation developed from 

data for tubes of various configurations, and solved for the 


Stanton number becomes: 


St = /8 (8a) 
5.68(e/p) > “VPr [(e/d, )Re £/8) °° 7p 9 


where: y= -[2.5 In(2e/4, )#3.75] (8b) 
Then, ne becomes: 
hes Ko Rewer aS G (9) 
ds 


These equations are applicable to Reynolds number range 
10,000-120,000, and Prandtl number range 4-10. 

See Appendix-B for tube data, and friction factor char- 
acteristics of multiple-helix internal ridged tubes. 
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T1.C CONDENSATE HEAT TRANSFER COEFFICIENT 


In reference-l1, BARNES developed an equation for the 
average value of condensate heat transfer coefficient (h,) 
for an externally fluted tube of length L. In this 
formulation he depends upon physical properties of the 
condensing fluid geometric factors, and mass flow rate 


of condensate in the flutes. 


.0074 _.2307 ma (OBS a85 2307, 
= = 6027] Meats | a (Nu,a°) - eos 


e LaT wat 


P 
(10) 


The non-dimensional group Nu,o* defined in Reference-1 is 
a function of flute amplitude-to-pitch (a/p) ratio. It 
should be noted in Equation-10 the parameter L is the 
length of the tube between condensate drain off plates. 

The parameter We is the flooding axial mass flow of 
condensate per flute (LBM/hr) which is also a function of 
physical properties of the fluid, and tube geometry. In 
Reference-4 PANCHEL and BELL defined the following flooding 
Reynolds number for condensate flow in the axial flutes: 


Re p= Lint (11) 
XK 
meal 
and an additional non-dimensional group: 


= ly pé g [ “o ¥ (12) 
p L 


where %o = 2a in the case where the flute is flooded. Also, 


the following correlation was developed for Ap based on the 





Eee 
half-perimeter length (X,) of the flute: 

A p= 36(a/p)exp(3.33 a/p) Re, (13) 
Substituting equations (11 and 12) into equation (13) and 


solving for We yields: 


Wee 8 pap oxp|-3-33(a)] (14) 
2 HB Pp 


where We is now based on full perimeter length of the flute. 
i 


See Appendix-B for plot of Nu 2" versus a/p ratio. 
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EIi. PROCEDURE DISCRIPTION FOR HEAT EXCHANGER SIZING 


The following discussion outlines the basic methodology 
for condenser sizing used in this analysis. At this point in 
this discussion, it is assumed that basic condenser oper-= 
ational parameters have already been determined, il.e., 
condenser heat load cooling water flow rate, number of tubes, 
coolant temperature rise from inlet to outlet of condenser, 
tube size, etc. 

1. In the first step, divide the total coolant temper- 
ature rise from condenser inlet to outlet into small incre- 
ments of aT. each, and assume constant fluid properties over 
each ae increment. If the coolant temperature rise for each 
increment is known, then the incremental heat transfer is 
also known. 

2. The next step would be to assume initial values for 
mpandwat (T+ Besa in Equation (10). 

: 3. Calculate overall ue Equation (5) for the increment 
after heat transfer coefficients are determined. 

4, The section length is determined, then a heat balance 
is applied to the length increment to obtain new calculated 
values foratT. These updated values for aT and L will serve 
as input into Equation (10) for the next iteration. 

5. Repeat steps 2-4 until the calculated aT, and L in 
step 4 equals the assumed aT, and L in step 2. 

6. In this manner one can march through the condenser 
summing the individual increment lengths with the final result 
being the total tube length required for the condenser. 

Tube bundle diameter was then determined using acceptable 
values for pitch-to-diameter ratio, which was taken as 1.35 


here. Tube spacing determined by the pitch-to-diameter ratio 
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is based on the tube outside diameter including the flutes. 
Calculated values for the steam lane dimensions along with 
tube bundle dimensions were used to determine the internal 
dimensions of the condenser shell. 

The steam lane is the radial steam passage around the 
tube bundle, whose width is the radial distance between 
the outer tube bundle diameter and the condenser shell. 
A simple expression was established to determine the steam 
lane width using emperical data from baseline condensers. 
It is desired to size the steam lane width to limit the main 
steam lane entrance velocity to the below recommended values: 


Recommended Maximum 


Condenser Design Main Steam Lane 
Pressure, in. Hg Entrance Velocity(ft/sec)} 
1 500 
Z 400 
3 300 (ref 9) 
Ly 250 
5 200 


This steam lane velocity can be expressed: 


Ve il W Sy 
3600 PA 
V= steam velocity (ft/sec) 
W= steam load (lb/hr) 
A= flow area (£t*) 


= steam density (1b/ft?) 
Equation (16) can be rewritten: 


Ve= ile W (6 ) 
3600 Pine hy 


L 


m total tube length (ft) 


Ly 


Since some of the steam enters directly into the tube 


steam lane width (ft) 


bundle, W in the above equation should be reduced by an 


appropriate amount. The resulting equation that follows 
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agrees well with similar condenser designs: 


= .8784 W (17) 
3600 pl neh. 
Therefore, up to this point in the procedure the following 
basic information has been determined: 

1. Tube Length of condenser shell 

2. Condensate drainage plate spacing 

3. Tube bundle dimensions and volume 

4, Condenser shell dimensions and volume 
The remainder of the sizing procedure concerns the determin- 
ation of component dimensions for the tubesheets, waterboxes, 
hotwell, etc. The required material, dimensions, arrangement, 
and construction of condenser components were determined in 
accordance with Reference (7), reflecting submarine design 
practice. 

The final product of this procedure is preliminary 
condenser sizing and arrangement, and the following values 
for performance comparison: total condenser weight and 
volume, and the cooling water system pressure drop through 
the condenser. 
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IV, COMPUTER MODELING 


The basic procedure for heat exchanger sizing as out- 
lined in the previous section was employed in the Vertical 
Condenser Sizing Program No. 1 (VERTCON-1). The VERTCON-1 
program is a preliminary design tool with the following 
features: 

1. The option of smooth internal tubes 
or internally enhanced tubes. 

2. Design of single or double pass 
condensers. 

Seo pul Oneot submarine, Or surface 
ship condenser design. 

4, Two basic configurations are avail- 
able for double pass condensers: 

(a) Conventional return header design 
(bd) "U-Tube" construction 

5. Diagnostic messages used to warn when 
condenser drainage plate spacing is 
beyond specifications based on heat 
transfer performance and mechanical 
design. 

6. Computation of recommended values for 
condenser drainage plate spacing and 
maximum main steam lane entrance 
velocity when they are not specified. 


Program Description 


The program VERTCON-1 is described here, and diagrammat- 
ically in the simplified program flow chart (Figure 5). The 
program is based on the FORTRAN-77 standard, and is listed 


in Appendix-A. Included with the program listing are sample 
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data input files, and program output. 

The program input consists of input data files, and 
interactive input entered at a terminal. The input data 
files consist of tube geometry information, and specification 
of condenser operating conditions. The design features are 
selected interactively at the terminal. See Appendix-A 
for further details on data input. 

The program is set up for sizing just one condenser 
or a series of condensers. After invouting data the program 
prompts at the terminal for selection of design features. 

If condenser drainage plate spacing and maximum main steam 
lane entrance velocity are not specified the program cal- 
culates recommended values (Branch A and Iteration-sA, 

Figure 5). The determination of these values are based on 
heat transfer performance and mechanical. design to provide 
proper tube support. If these values are specified then the 
program checks if condenser drainage plate spacing is 

beyond recommended values (Branch B, Figure 5). If the 
values specified exceed those dictated by proper design, 
then diagnostic warning messages are vrinted at the terminal 
and in the program output. For an example of this see 
sample output condenser number 4 in Appendix A. 

In Iteration B and C, the total effective tube length 
for the condenser is calculated by adding N tube sections 
of length equal to the drainage plate spacing until a proper 
heat balance is obtained. Iteration B adds up N-l of these 
sections, and Iteration C calculates final section length, 
which may have a length less than the specified drainage 
plate spacing. 

After total effective tube length is determined the 


condenser geometry, weight, volume and system pumping power 
are calculated for each condenser. The tabulated program 


output displays for each condenser the following information: 
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(1) All input data and design features selected. 

(2) If applicable, diagnostic warning messages. 

(3) Detailed weight breakdown of condenser 
components. 

(4) Total condenser volume center of gravity and 
total weight in dry and wet conditions, and system pumping 


power. 
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Three basic groups of tubes were used in the vertical 
condenser sizing routine and subsequent performance com- 
parison with horizontal smooth and enhanced tubes, and they 
are: 


1. smooth internal tube 
2. mild internal enhancement 
3. extreme internal enhancement 


Also tubes were compared with the same degree of external 
enhancement. ) 

For all tubes, the outer tube wall diameter was 5/8 in. 
foi a vube wall thickness of 0.035 in. The base of the axial 
flutes are located at the outer wall diameter (D.). 

In selection candidates for internal enhancement various 
configurations were investigated from reference (6). The 
- objective was to obtain enhancement configurations with the 
following properties: 

1. Candidate tubes with acceptable improvement in 
internal enhancement with lower cooling water pressure drop 
characteristics. 

2. Candidate tubes with significant improvement in 
internal enhancement. Due to the more extreme internal 
enhancement these tubes will have higher cooling water 
pressure drop characteristics. 

The selection criteria for the external enhancement 
considered both heat transfer performance and tube strength 
requirements. For a fluted tube under internal pressure, 
stress concentrations occur at the bottom of the flute 
valley. A method was developed by NEUBER (8) to relate 
stress concentration factor to flute amplitude-to-pitch 
ratio. With information obtained by applying this method, 
a criteria can be established for selection of a maximum 
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a/p ratio. The effect of a/p ratio on tube strength will 

only be significant at deep operating depths for submarine 
condensers, and it will not be a strong influencing factor 
in surface ship condenser designs. 

The condensate heat transfer coefficient nh. is also 
a strong function of a/p ratio, and it generally increases 
in the range of a/p up to approximately 0.35. Work is 
ongoing in this area to determine selection criteria for 
Sota a/o ratio. 

The desire to keep the a/p ratio at higher values for. 
improved heat transfer performance 1s opposed by the strength 
requirements that place a limit on the maximum value for this 
ratio. The result of balancing these two opposing require- 
ments resulted in the tube selections as shown below; 


Table 1. Enhanced Vertical Tube Data 


Tube Wall Diameter ~ 5/8 in. 
Tupe welll Thickmese = 0.035 in. 


Cooling Water Enhancement 
Version m r e D e/di e/Pi f* 
Number (aia) RO) 


-0075 
eo 






*Priction Factor 2 Re = 4.0 x ag 


Steam Side Enhancement 


pas 
fee ston a ee On Number of 
umber a ) Gg. ) Flutes 


L544 
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VI. COMPARISON OF HERAT TRANSFER RESISTANCES 


A comparison of steamside, tube wall, and waterside 
resistances for typical vertical, horizontal smooth and 
enhanced tubes is depicted in Figure (6). All three tubes 
are operating at the same flow velocities and condensing 
conditions. Both the horizontal and vertical enhanced 
tubes are compared with the same degree of internal enhance- 
ment, and thus the cooling water pressure drop experienced 
by these two enhanced tubes are also approximately equal. 
Also, the cooling water pressure drop for the enhanced tubes 
is greater than for the smooth horizontal tube. 

The numbers on the bar graph in Figure (6) for the hori- 
zontal and vertical enhanced tubes indicate the overall 
reduction in thermal resistance as compared with the horizontal 
smooth case. For the horizontal enhanced case the 26 percent 
thermal resistance reduction corresponds to a Single helix 
ridged tube, and the 35 percent thermal resistance reduction 
corresponds to a single helix ridged tube where additional 
external enhancement surfaces (grooves) have been added. 

As demonstrated, the horizontal enhanced tube provides for 
Significant thermal resistance reduction on the waterside, 
and reduction to a limited extent on the steam side. 

As compared with both horizontal smooth and enhanced tube 
the vertical tube provides for significant reduction in steam- 
Side thermal resistance. This decrease in steamside resistance 
doesn't occur without some cost, which in this case turns out 
to be an increase in tube wall resistance. The increase in 


tube wall resistance occurs because the axial flutes are built 
up on the tube at the wall diameter thus increasing the length 
of the heat transfer path through tube wall material. This 

increased tube wall resistance is reflected in the formulation 
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of the neat transfer coefficient for the tube wall in equa- 
tion (4). As horizontal enhanced tubes are modified to 
provide improved steamside enhancement by more severe external 
grooving similar problems with increased tube wall resistance 
will be encountered. 

This increase in tube wall resistance can be minimized 
by reducing the value of the flute amplitude (a). In order 
to maintain the amplitude-to-pitcn (a/p) ratio at a specified 
value, correspondingly the value of p will have to be reduced. 
The overall effect of reducing both a and p to minimize the 
increase in tube wall resistance will be to produce a tube 
with a large number of smaller flutes. As discussed before, 
this sort of trend will improve heat transfer performance up 
to a point where the flutes become so small that they are 
easily flooded. This flooding problem could be partially 
offset by also decreasing the condensate drainage plate 
spacing, but again there is a limit to how small the drainage 
plate spacing can be. | 

The material for all three tubes in figure (6) is 
titanium. The comparative increase in tube wall resistance 
for vertical tubes will not be as significant for materials 
possessing greater thermal conductively, such as CuNi or Al. 

As demonstrated, vertical enhanced tube can cause a 
noteworthy reduction in overall thermal resistance by pro- 
viding significant reductions in both waterside and steamside 
resistance. It should be noted that to insure minimum tube 
wall resistance care must be taken in the selection of the 


axial flute geometry. 





VII. RESULTS OF FERFORMANCE COMPARISON 


The following series of four figures demonstrate the 
comparison of condenser performance between various vertical 
tube condenser configurations, and the horizontal enhanced 
and baseline horizontal smooth tube condensers. H#Hnhanced 
and baseline condenser data is displayed in Table 2. The 
condensers are characterized as being either High Condenser 
Absolute Fressure (HCAP) or Low Condenser Absolute Pressure 
(LCAP) designs. 

The LCAP and HCAP are typical submarine condenser 
designs, and Code 2721, David Taylor Naval R & D Center 
was the source of data for the horizontal enhanced and the 
baseline horizontal smooth tube condensers. This data is 
based on the results out of the ORCON-2 program from the 
Naval Postgraduate School, Monterey. For the vertical tube 
condensers equivalent procedures were used in determining 
the weight and dimensions or condenser components, to ensure 
a valid comparison of condenser performance. 

The performance comparison is presented by plotting 
total condenser weight ratio (WAN a) versus the pumping power 
ratio (P/P,,)- The ratio W/W y 7) ils the weight of the 
enhanced tube condensers divided by the weight of the baseline 
horizontal smooth tube condenser. The condenser weight is 
the total wet weight of the condenser and its components, 
excluding external pumps and piping. The ratio P/P ay is 
the pumping power of the enhanced tube condensers divided by 
that of the baseline horizontal smooth tube condenser. The 
pumping power is a combined value for both the condenser and 
the condenser seawater circulating system. A plot of total 
condenser volume ratio (V/V) versus Po/Pyy ratio was also 
made, where condenser volume is the total box volume of 


condenser and components excluding external piping and pumps. 





-35- 
TABLS 2 = @NHANCED AND BASELINE CONDENSER DATA 


HCAP LCAP HCAP/LCAP 
Snhanced Enhanced Enhanced Horizontal & 
Vertical Vertical Baseline Smooth Tube 


Tube spacing/ 
diameter 


Tube OD(in.) 


Tube Wall 
Thickness(in.) 


Tube Material 


Tube Wall 
Soncuctivity 
(3stu/hr ft°F) 


eoolins Water 
Velocity 
(ft/sec) 8.0-14.0 


Cooling Water 
Inlet Temp.( °F) 66.1 


Fouling 
Resis ance 
(hrft* °F/BTU) 0.00033 0.00033 0.00033 


Steam Inlet 
Saturation , 
Temperature( “F) 143.89 is OO lie 6 


Cooling Water 
Outlet Temp( °F) 23 46 123 .46/98.28 


S.W. Flow (GPM) 7900 7900/13,500 


Condenser 
Operating 7 
Pressure (in.Hg) 6.5 ; 6.5/1.5 








e26e 


BASELINe HORIZONTAL SMOOTH TUBE CONDENSER DATA 


S.W. Flow (GPM) 7900 


Cooling Water Velocity era bts 
(ft/sec) 


Cverall Width (ft) 6.25 8.06 
Overall Length (ft) 25.3 Zeno 
Total Net Weight (lbs) 110,303 143,369 


Overall Head Loss 


Box Volume (ft’) 1226 2091 


System Pumping Power 
(HP ) 190 20% 
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HCAP = ENHANCED=VERTICAL TUBE CONDENSER PEREORMANCS 


Performance comparison for the HCAP condenser design 
on the basis of WAN versus Be) Ps is plotted in Figure 7 
and V/V is plotted in Figure 3. Three different internal 
enhancement configurations are employed all with the same 


steam side enhancement (NR-1). 


Curve-> 
Data for smooth internal vertical tubes are plotted 


in curve-3. The range of condenser parameters going from 
left to right on the curve are: 


Cooling water velocity(ft/sec) 6.36 - 8.0 
Total condenser length(ft) 24 = 26 
Effective tube length(ft) 14.0 = 16.3 
Condenser diameter(ft) 6.8 = 5.9 

Box volume(ft?) jae). =no78 
Condenser weight(lbs) 86,763 - 71,900 
Pumping power(HP) 184. = 210 


The effective tube length is only the tube length required 
to transfer the specified heat load, and it doesn't include 
the extra tube length required for double tube sheet con- 
struction. Traveling along the curve from left-to-right 
the following trends can be observed: 
1. cooling water velocity increases 


2. total condenser length and effective 
tube length both increase 


3. condenser diameter, box volume, and 
weight all decrease 


4, pumping power increases 
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These same general trends can be observed in all the 
plotted data for both the HCAP and LCAP designs. As shown 
above, condenser diameter decreases as the condenser length 
and flow velocity increases with a corresponding reduction 
in both weight and volume. This demonstrates that a small 
condenser diameter and long length produces a greater weight 
| and volume reduction. In practice however, a pumping power 
Or practical condenser length limit will dictate an acceptable 
range for a design on this curve. This indicates that a 
condenser with in the greatest weight and volume reduction 
will also possess larger values for condenser length and 
pumping power. 

This methodology can be applied to nonenhanced condenser 
designs, but the length limit will be much more restrictive 
than for enhanced condensers, thus restricting the degree of 
improvement. 

This data also demonstrates that condenser weight and 
volume is a strong function of condenser diameter. Condenser 
box volume is a function of diameter squared, thus reducing 
diameter will have a greater effect in reducing volume than 
changing condenser length. Also, the largest weight condenser 
conponents have dimensions based on diameter, such as water- 
boxes, tubesheets, tube support plate and condenser shell. 
Therefore, reducing condenser diameter will have a significant 
effect in reducing weight. 

Curve-3 also demonstrates that significant weight and 
volume reduction is possible with just steamside enhancement. 
If the application of internally enhanced tubes becomes 
restricted due to excesSive rates of fouling, then vertical 
tube condensers will still be able to provide an enhanced 
condenser alternative with smooth internal tubes. 
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Curve=$2 
Data in Curve-2 are for condensers with doubly enhanced 
vertical tubes with mild degree of internal enhancement 
(internal enhancement NR-2). The range of condenser 
parameters going from the left to right on the curve are: 


Cooling Water velocity(ft/sec) 8.0 - 10.0 


Total condenser length(ft) 23 = 25 
Effective tube length(ft) 2,7 = 25.3 
Condenser diameter(ft) 6.5 = 5.6 

Box volume(ft?) 1042 = 852 
Condenser weight(lbs) 75,522 = 62,468 
Pumping power(HP) ES Oy 


The condenser designs located on this curve show an 
additional reduction in weight and volume over the smooth 
internal vertical tube configuration. But along with the 
increased performance there is an increase in pumping power. 
Overall, the Curve-2 condensers provide the best design 
alternatives for the following reasons: 


1. The mild internal enhancement coupled 
with steamside enhancement provides 
Significant weight and volume reduction. 


2. Condenser lengths fall within a reasonable 
range. 


3. The mild enhancement may prove to produce 
less fouling problems than other more 
severely enhanced tubes. 


Curveel 

Data in Curve-l1 depict condenser designs with doublv 
enhanced vertical tubes with extreme internal enhancement 
(internal enhancement NR-l). The range of condenser para- 
meters going from left to right on the curve are: 
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Cooling water velocity(ft/sec) 8.0 - 12.0 


Total condenser length(ft) 22 - 26 
Effective tube length(ft) Tee) oN Sine 
Condenser diameter(ft) 67 we 55 

Box volume (ft?) 1076 - 749 
Condenser weight(lbs) DomoeO = SH 6721 
Pumping power(HP) 280 = £33 


The condensers with the greatest weight and volume 
savings are the designs on Curve-1l. These same designs also 
have the largest values for pumping power. 

As demonstrated by the HCAP designs in Figures 7 and 8, 
the vertical enhanced tube condensers provide a significant 
performance improvement compared with both enhanced horizontal 
and conventional horizontal smooth tube condensers. Vertical 
enhanced tube condensers accomplish this with a great degree 
Sererlexibility, due to the various combinations of internal 
and external enhancement that can be employed. 
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HCAP - Enhanced Vertical Tube Condenser 
Performance - Condenser Volume Comparison 
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LCAP-ENHANCED=-VERTICAL TUBS CONDENSER PERFORMANCE 


Performance comparison for the LCAP condenser design 
on the basis of W/W versus yee is plotted in Figure 9, 
and V/V is plotted in Figure 10. The vertical condenser 
designs depicted in this data are for only one tube con- 
figuration: internal enhancement NR-2, and external en- 
hancement NR-3. The range of condenser parameters going from 


left to right on the curve are: 


Cooling water velocity (ft/sec) 10.5 - 12.0 


Total condenser length (ft) BO = ey 
Effective tube length (ft) 14.6 - 16.2 
Condenser diameter (ft) Snoor = oal5 

Box volume (ft?) 2227 = O20 
Condenser weight (lbs) Ole ieee le oa 
Pumping power (HP) 43 = 533 


Only one tube configuration was plotted due to design 
length limitations. With larger allowable condenser lengths 
additional weight and volume reductions could have been 
obtained with less internal enhancement, and at a lower 
pumping power. With greater degree of internal enhancement 
the pumping power limit was quickly reached. 

At lower condenser operating pressures as in the LCAP 
design, weight and volume is a strong function of condenser 
diameter which is driven by steam lane volume. Steam lane 
volume is directly proportional to specific volume of steam 
and inversely proportional to condenser length. The magnitude 
of specific volume for steam is over twice the value in the 
LCAP design as compared with the HCAP design. 

If condenser length is reduced by application of enhanced 


tubes while keeping other condenser parameters constant, 
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condenser weight and volume could actually be increased. 

Since steam lane volume is inversely proportional to condenser 
length, reducing condenser length with the same steam mass 
flow rate and tube bundle diameter will cause a significant 
increase in condenser diameter. This increase in condenser 
diameter will strongly influence an increase in weight and 
volume. 

Condenser weight and volume can be reduced by boosting 
flow velocity, which causes both an increase in condenser 
length and a decrease in condenser diameter due to reduced 
tube bundle diameter (less number of tubes and reduced steam 
lane width). There is a limit to how far flow velocity can 
be increased, because the pumping power limit is quickly 
reached. 

The effect of steam specific volume on condenser sizing 
has a greater effect on condenser designs with lower operating 
pressures such as the LCAP design that has been described 
above. Since the vertical condenser design is length limited, 
the amount of condenser performance improvement that can be 
achieved at lower condenser pressures is also limited. This 
trend is evident in the data of Figures 9 and 10. To 
illustrate low the vertical condenser design is length limited 
examine the data point for condenser length equal to 27.5 feet. 
The effective tube length is 16.2 feet, while the remaining 
11.3 feet of condenser length is made up of waterbox header 
depth and hotwell depth. Relocation of the hotwell could 
provide several extra feet for increased effective tube length. 
With certain condenser conditions a one foot increase in 
condenser length could provide as much as 10 percent additional 
condenser performance improvement. Thus at lower condenser 
Operating pressures, the vertical enhanced tube condenser 
performance is sensitive to allowable condenser length. 
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LCAP - Enhanced Vertical Tube Condenser 
Performance - Condenser Volume Comparison 
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VITT. CONCLUSIONS 


This analysis has clearly demonstrated that significant 
reduction in condenser weight and volume can be obtained for 
certain applications using enhanced vertical tube condensers. 
Vertical tube condenser performance also compares well with 
enhanced horizontal tube condensers. The following conclusions 
can also be drawn from this report: 

1. Larger comparative weight and volume reductions can 
be obtained with designs at higher condenser operating 
pressures. 

2. The proper methodology for producing enhanced con- 
denser designs with minimum weight and volume is to: 

a. first determine proper value for average 

overall heat transfer coefficient (U) within 

pumping power and dimension limits to produce 

minimum weight and volume; and 

b. match internal and external enhancement 
configurations to obtain the specified value 

oie 

3. Vertical tubes can provide great flexibility due to 
the different combinations of internal and external enhance- 
ment configurations. [It is possible to "fine tune" the 
overall heat transfer coefficient to obtain the optimal 
value of U. Condensate drainage plate spacing can also be 
used to adjust the value of condensate heat transfer coefficient. 

4, Significant weight and volume reductions can be 
obtained at lower pumping powers with mild internal enhancement 
or with smooth internal tubes. 

5. The degree of enhancement should be matched for each 
particular case. The greatest degree of enhancement may not 
always be the optimum enhancement with design limitations to 
produce minimum condenser weight and volume. 
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6. Vertical tube condenser design is sensitive to 
effective tube length, and it is restricted by the maximum 
allowable condenser length. 

7. Alternate hotwell designs need to be investigated. 
Relocating the hotwell from directly underneath the inlet/ 
outlet cooling water header (Fig. 4) could serve to reduce 
total condenser length. 

Further analytic investigations and testing should 
continue with enhanced vertical tube condensers. The vertical 
condenser could have other important applications other than 
propulsion steam condensers. This technology can be applied 
to many of the shipboard two-phase heat exchangers, whether 
the condensing fluid is steam, refrigerant, or other medium. 
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: APFENDIX A 


DARA. LNPUT 
See Table-3 for a sample input data file 


BNPUT DATA FILE 

. Assigned Logical Operator = 20 to specify input device 
mw See Pines 47-52 of orozram listing for explanation 
Free Format 

Six lines of data for each condenser 


Fee iS) 


Poeevariabple Names Starting with I, J, «, Lb, M, or N are 
integer variables and others are real variables, except for 
specific cases as noted 


LINE 1 

mnver: sUB Or SUR 
SUB - Submarine Condenser Design 
SUR - Surface Ship Condenser Design 


LINE 2 
Baers  NIYPH, DI, DN, AE AEPE, EL, PI 


NTYPE - Tube Type: a. for smooth internal tube 
b. for doubly enhanced tubes 


DI - Internal Tube Diameter (in.) 
DW - Tube Wall Diameter (in.) 
AE - External Flute Amplitude (in.) 


AEPE - Amplitude-To-Pitch Ratio of External Ridging 
Be - Internal Helix Ridge Height (in.) 
PI = Pitch of internal Helix (in. } 


Note: For smooth internal tube (NTYPE-1) enter @@ for EI, Pl. 
Values of EI and PI are obtained from reference 6, and 
values used in this study are shown in Table-l. 
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TABLE 3 


* * SAMPLE INPUT FILE * * 
SUB 
2,.555,.625,.01,.245,.024, .0949 
AUS) 4 AGL, 4 SIS, o CON Sia S) 5 SOIC las: 
66.1,143.89, .85,257000. ,6.5,2. 
6.,.625,.5625, .5625,2.64, 488. 
558.,488.,488.,488.,558.,282.,1.56E7, .56,488. 


SUB 
2,.555,.625,.01,.245,.024,.0949 
AUS) dl ile iss A (OOS. ola omy Ol 010% 
66 .1,143.89, .85,257000.,6.5,2. 
6.,.625,.5625, .5625,2.64,488. 
558.,488.,488.,488.,558.,282.,1.56E7,.56,488. 


SUB 
2,.555, .625,.01,.245, .024, .0949 
48.,4.54,.58, .0075,9.6, .00033 
66.1,143.89, .85,257000.,6.5,2. 
6.,-625,.5625,.5625,2.64,488. 
558.,488.,488.,488.,558.,282.,1.56E7, .55,488. 
SUB 

S55 625,401, «245, .024, .0949 
48.,4.54,.58, .0075,9.6, .00033 
66.1,143.89,.85,257000.,6.5,2. 
6.,.625,.5625, .5625,2.64, 488. 
558.,488.,488.,488.,558.,282.,1.5627,.56,488. 
SUR 

2,-555,.625,.01,.245, .024, .0949 
48.,4.54, .58, .0075,9.6, .00033 

66 .1,143.89, .85,257000.,6.5,2. 

0.,.625, .5625,.5625,1.5,488. 
O.,488.,488.,488.,558.,282.,1.56E7, .56,488. 
SUR 

7555, .625..01,.245.0.,0. 
48.,4.54,0.,0.,9.6, .00033 
66.1,143.89,.85,257000.,6.5,2. 
0.,.625,.5625, .5625,1.5,488. 
O.,488.,488.,488.,558.,282.,1.56E87,.56,488. 
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LINE 
mmcers: ) ELUTE, FE, ME, Ri, KW, RSCALE 
FLUTE - Number of Flutes Per Tube 
PE - Operand for Condensing Heat Transfer Coefficient 
MI - Operand for Friction Factor, Helical Internal 
Ridging (Real Variable) 
eid - Operand for Friction Factor, Helical Internal 
Ridging 
KW - Conductivity of Tube Wall (BTU/hr-ft- °F) 


RSCALE - Fouling Resistance (hr-ft- °F/BTU) 
Note: MI is a real variable. 


LINE 4 
macer: TCL, TSAT, QSTM, STMLD, PSAT, TIS 
Jee - Inlet Coolant Temperature ( °F) 


TSAT - Steam Inlet Saturation Temperature ( °F) 

QSTM =- Quality of Inlet Steam to Condenser 

STMLD - Steam Condenser (lb/hr) 

PSAT - Condenser Operating Pressure (in. Hg) Absolute 
DS - Thickness of Internal Tube Sheet (in.) 


LINE 
Bemoms S lOLa>, Lohiu, TiS, THW, THDR, ITSD 

TOTS - Thickness Outer Tube Sheet (in.) 

TSHL - Thickness of Condenser Shell (in.) 

TTSP - Thickness Tube Support Plate (in.) 

THW - Thickness of Hot Well Plate (in.) 

THDR - Thickmess of Headers (in.) 

ITSD - Internal Tube Sheet Density (1b. /Ft?) (Real Variable) 
Note: ITSD is a real variable. 


LINE 6 
Enter: OTSD, SHLD, TSPD, HYD, HDRD, TBD, ETUBE, TCOVER,COVERD 
OTSD - Outer Tube Sheet Density (lb/ft?) 


SHLD - Shell Density (lb/ft) 





SR 


oe D - Tube Support Plate Density (lb/ft?) 

HYD = Hot Well Plate Density (1d/ft?) 

HDRD - Header Density (lb/ft?) 

TBD ~ Tube Bundle Density (lb/ft?) 

ETUBE - Modulus of Elasticity of Tube Material (1b/in*) 
TCOVER - Thickness of U-Tube Header Cover (in.) 


COVERD - Density of U-Tube Header Cover (in. ) 


INTERACTIVE DATA INPUT 
Enter data at the terminal as follows: 


When the program commences, the following message 
appears on the terminal screen: 


*#% WELCOME TO PROGRAM: VERTCON, VERSION-1L ** 
ENTER PROGRAM RUN NUMBER 


Enter Run number, which can be an integer from 0-to-999. 
Next at the terminal apvvears: 





ENTER THE NUMBER OF CONDENSERS TO BE SIZED 


Enter The number of condensers to be sized, which is also 
an integer from 1-to-999. 


Next at the terminal appears: 


Bienes oOn stNGin PASS, OR =2" FOR DOUBLE PASS CONDENSER 


Enter the proper integer number 1 or 2 for single or double 
pass condenser. 
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Next at the terminal appears: 


TWO BASIC CONFIGURATIONS ARE AVAILABLE FOR DOUBLE 
PASS CONDENSERS : 


(1) CONVENTIONAL RETURN HEADER DESIGN 
(Zee Ue misee CONSTRUCTION 


ENTER 1 OR 2 FOR CONFIGURATION SELECTION 


Enter the proper integer number 1 or @ for configuration 
selection. 


f 


Next at the terminal apvears: 





i 


ENTER: (1) COOLANT FLOW RATE (GPM) 
(2) COOLANT FLOW VELOCITY (FT/SEC) - 
(3) FRICTION FACTOR FOR INTERNAL TUBE 


Enter all three numbers (real numbers) on the same line in 
Tree format. 


Note: Friction factors for internally enhanced tubes can be 


obtained from reference (6) and values used in this study are 
shown in Table-l. 


Next at the terminal appears: 


DO YOU WANT TO SPECIFY MAXIMUM MAIN STEAM LANE 
ENTRANCE VELOCITY (FT/SEC)? 


YES OR NO 


Bem 155 Or Y, NO or N for proper choice. 


If YES is entered, next at the terminal appears: 





SG 


ENTER MAXIMUM MAIN STEAM LANE ENTRANCE VELOCITY (FT/SEC) 


Pnter this as a real number. 
If NO was entered, next at the terminal secrrn appears: 


PROGRAM WILL SELECT RECOMMENDED MAXIMUM MAIN 
STEAM LANE ENTRANCE VELOCITY USING CONDENSER 
OPERATING PRESSURE AS SELECTION CRITERIA. 


Next at the terminal apdvears; 


DO YOU WANT TO SPECIFY CONDENSATE DRAINAGE 
PLATE SPACING (FI.)? 


YES OR NO 


maeeccerso Or Y, NO or N for proper choice. 
If YES, is entered, next at the terminal apvears: 


ENTER CONDENSATE DRAINAGE PLATE SPACING (FT.) 


tTnter this as a real number. 
If NO was entered, next at the terminal appears: 


PROGRAM WILL SELECT RECOMMENDED CONDENSATE 
DRAINAGE PLATE SPACING 
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Note: At this point, entry of Interactive Data is completed 
for the first condenser. The program now completes 
the sizing for the first condenser and will prompt the 
terminal for further interactive data for any additional 
condensers. 


DATA OUTPUT 


See Table-4+ for a sample output data file. This output data 
file demonstrates the design features as follows: 





1. Condenser Type: Submarine design 
@ 


- Double pass condenser with conventional return 
header design 


3. Doubly enhanced tubes 


CONDENSES? NUMBER (2 

1. Condenser Type: Submarine design 

2. Double pass condenser with "U-tube" construction 
3. Doubly enhanced tubes 


CONDENSER NUMBER (3) 


1. Condenser Type: Submarine design 
2. Single pass condenser 
3. Doubly enhanced tubes 


CONDENSER NUMBER (4 
lL. Demonstration of program diagnostic warning messages 


CONDENSER NUMBER (5) 


1. Condenser Type: Surface ship design 


2. Double pass condenser with conventional return 
header design 


3. Doubly enhanced tubes 
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CONDENSER NUMBER (6 

1. Condenser Type: Surface ship design 
2. Single pass condenser 

3. Smooth internal tubes 





TABLE 4 


Peo nO Chat VERTCON, VERSTON=| ** 


PROGRAM RUN NUMBER( 1) 


¥*** VARIABLE LIST **** 


AE= EXTERNAL FLUTE AMPLITUDE (IN.) 

ARPE= AMPLITUDE-TO-PITCH RATIO OF 
EXTERNAL RIDGING 

ATB= AREA OF TUBE BUNDLE ( FT**2) 

ATS= AREA OF TUBE SHEET (PT**2) 

DI= INTERNAL TUBE DIAMETER (IN.) 

DPTHDR= HEADER DEPTH (FT. ) 

DRYCG= HEIGHT OF CENTER OF GRAVITY 
ABOVE CONDENSER BOTTOM AT DRY 
WHEGHT (FT. ) 

DTB= DIAMETER OF TUBE BUNDLE (FT.) 

DTS= DIAMETER OF TUBE SHEET(FT.) 

DW= TUBE WALL DIAMETER (IN.) 

Bl= OPERAND FOR FRICTION FACTOR 
PeElIcAL INTERNAL RIDGING 

FE= OPERAND FOR CONDENSING HEAT 
TRANSFER COEFFICIENT 

KW= CONDUCTIVITY OF TUBES WALL 
(BTU /HR-FT-DEG.F) 

LANE= STEAM LANE BREADTH (FT.) 

LHW= LENGTH OF HOTWELL (FT.) 

LTOT= TOTAL TUBE LENGTH (FT. ) 

TCI= INLET COOLANT TEMP. (DEG.F) 


MI= OPERAND FOR FRICTION FACTOR; 
HELICAL INTERNAL RIDGING 

NTYPE= TUBE TYPE: +-FOR SMOOTH IN- 
TERNAL TUBE; AND 2-FOR DOUBLY 
ENHANCED TUBES 

PI= PITCH OF INTERNAL HELIX(IN.) 

PSAT= CONDENSER OPERATING PRESSURE 
(IN.HG)ABSOLUTE 

QSTM= QUALITY OF INLET STEAM TO 
CONDENSER 

RI= OPERAND FOR FRICTION FACTOR, 
HELICAL INTERNAL RIDGING 

RSCALE= FOULING RESISTANCE 
(HR-FT**2-DEG.F/BTU ) 

STMLD= STEAM LOAD (LBM/HR) 

TSAT= SATURATION TEMP. (DEG.F) 

VTB= VOLUME OF TUBE BUNDLE El ae 

WEXP= EXPANSION JOINT WEIGHT (LB. ) 

WMISC= WEIGHT OF MISCELLANEOUS 
COMPONENTS (LB. ) 

WETCG= HEIGHT OF CENTER OF GRAVIT 
ABOVE CONDENSER BOTTOM AT WET 
WEIGHT (FT.) 
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CONDENSER NUMBER( 1) 
KH HK KK KK KKK KKK KEK KKK KEKE KKK KEK 
CONDENSER TYPE: SUBMARINE DESIGN 
DOUBLE PASS CONDENSER WITH CONVENTIONAL RETURN HEADER DESIGN. 
DOUBLY ENHANCED TUBES . . 
pee DAA eee 


. . FLOW RATE: 7900. (GPM) FLOW VELOCITY: 10.00 (FT/SEC) 
ie 0.555 DW = 0.625 AE = 0.010 AEPE = 0.2450 NTYPE = 2 
EFI = 0.0240 #£=PI = 0.0949 FE = 4.54 MI = 0.580 RI = 0.0075 
KW = 9.60 TCI = 66.10 PSAT = 6.50 QSTM = 0.85 TSAT = 143.89 
STMLD = 257000.0 RSCALE = 0.00033 
**** DATA OUTPUT - CONDENSER SIZING ROUTINE **** 
. MAXIMUM MAIN STEAM LANE ENTRANCE VELOCITY: 200. (FT/SEC) 
CONDENSATE DRAINAGE PLATE SPACING: 1.05 (FT.) 
CONDENSER HEAT LOAD: 0.220948+09 (BTU/HR) 
OUTLET COOLANT TEMP: 2S AAO Din ene 1a), 
TOTAL NUMBER OF TUBES: 2096.0 
. EFFECTIVE TUBE LENGTH: le 2a Sas | 
. AVG. HEAT TRNFR. COEFF. C.W.: 5950. | See 
. AVG. HEAT TRNFR. COEFF. COND.: 41106. (BIU/HR-FT**2-DEG.F 
. AVG. OVERALL HEAT TRNFR. COEFF.: 997. (BTU/HR-FT**2-DEG.F) 
iment = 16.13 LANE = 1.25 DTB = 3.60 ATB = 10.16 
VIB = 145.03 DTS = 6.09 ATS = 29.10 
**** DATA OUTPUT - WEIGHT & VOLUME CALCULATIONS **** 
WEXP = Wore mee WMGSe = 11095.5 LHW = 5.17 DPTHDR = 3.04 
MATERIAL THICKNESS WEIGHT 
DENSITY (LB/ FT**3 ) (IN.) (ChB) 
tan TUBE SHEET----- 558.0 6.0000 xe 
INNER TUBE SHEET----- 488.0 2.0000 SC 2. 
TUBE SUPPORT PLATE--- 488.0 0.5625 1 7OSe 
neo BUND LE-——-—--—-—-—--— 282.0 & XKKK 5616. 
Se LENSER SHELL------ A88.0 0.6250 WO 
nah ————————--____ 488.0 0.5625 3599. 
oe Ox ——-———_____—_~_ 558.0 2.6400 oe 


TOTAL CONDENSER DRY WHIGHT= 
TOTAL CONDENSER WET WEIGHT= 


TOTAL CONDENSER HEIGHT= 
- QUTER SHELL DIAMETER= 


55466.6 (LB.) 
63449.9 (LB.) 
28.33 (TON) 


Pease Gil a a 
S519 pa 
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ENCLOSED BOX VOLUME= (O02 Si nn= <5 } 
DRYCG = 12.535 WETCG = 11.73 


CONDENSER FRICTIONAL HEAD LOSS= 84.1 (FT.) 
TOTAL SYSTEM HEAD LOSS= oye Bt 
TOTAL SYSTEM PUMPING POWER= 381.3 (HP) 
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. DOUBLE PASS CONDENSER WITH 


60 


oe eee ee ee er a ee eee ee 


CONDENSER NUMBER( 2) 
iia Sita Sita Sits Tae a ais Mia Si a nt a nea is Sas Sie a Sa Sta its ia Sita into a a ita ito Sia ro a a 
CONDENSER TYPE: SUBMARINE DESIGN 
j—tkee CONSTRUCTION. 
DOUBLY ENHANCED TUBES . . 
**¥** DATA INPUT **** 


. . FLOW RATE: 7900. (GPM) Hho VorOcmr: 10.00 (FT/ SHC) 
Pe 0.555 DW = 0.625 Mee 6 One AEPE = 0.2450 NTIYPE = 2 
EI = 0.0240 Pie= 7 oO 20000 FE = 4.54 MI = 0.580 RI = 0.0075 
KW = 9.60 TCI = 66.10 PSAT = 6.50 QSTM = 0.85 TSAT = 143.89 
STMLD = 257000.0 RSCALE = 0.00033 
¥*¥*¥* DATA OUTPUT -— CONDENSER SIZING ROUTINE **** 
MAXIMUM MAIN STEAM LANE ENTRANCE VELOCITY: 200. (FT/SEC) 
CONDENSATE DRAINAGE PLATE SPACING: 1.05 (FT.) 
CONDENSER HEAT LOAD: 0.220948+09 (BTU/HR) 
OUTLET COOLANT TEMP: ee dA Dee F) 
TOTAL NUMBER OF TUBES: 2096.0 
. EFFECTIVE TUBE LENGTH: iaeeer > (anT 
meavG. HEAT TRNFR. COEFF. C.W.: 5950. (BIU/HR-FT**2-DEG.F) 
. AVG. HEAT TRNFR. COEFF. COND.: 41106. (BTU/HR-FI**2-DEG.F) 
AVG. OVERALL HEAT TRNFR. COEFF.: 997. (BIU/HR-FIT**2-DEG.F) 
LTOT = 16.13 LANE = 1.25 DTB = 3.60 ATB = 10.16 
VTB = 145.03 DTS = 6.09 ROUS = Bele: 
¥*** DATA OUTPUT — WEIGHT & VOLUME CALCULATIONS **** 
WEXP = 429.7 WMISC = 10614.2 LHW = 5.17 DPTHDR = 3.04 
MATERIAL THICKNESS WEIGHT 
DENSITY ( LB/ FT**3 ) Cina) (BB) 
oor TUBE SHEET----- 558.0 6.0000 eae 
INNER TUBE SHEET---~-- 488.0 2.0000 oye a 
TUBE SUPPORT PLATE--- 488.0 0.5625 1708. 
ae BUNDLE-—-——--—--—--— PSD 10) KL K*HK 6868. 
Seon peENSER SHELL------ 488.0 0.6250 7907. 
ls 488.0 0.5625 3599. 
Ox ——————_.______. 558.0 2.6400 A612. 
TOTAL CONDENSER DRY WEIGHT= DOs | LBs ) 
TOTAL CONDENSER WET WEIGHT= 61054.4 (LB.) 
27.26 (TON) 
. TOTAL CONDENSER HEIGHT= 24.34 (FT.) 


OUTER SHELL DIAMETER= 5519) (ies) 
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- ENCLOSED BOX VOLUME= 1002.2 (FI**3) 
DRCOG = 2200 WETCG = 11.41 


. CONDENSER FRICTIONAL HEAD LOSS= 89.9 (FT.) 
TOTAL SYSTEM HEAD LOSS= 142.9 (FT.) 
TOTAL SYSTEM PUMPING POWEFR= SOW os Ee 
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KKH KKK KH HHH HK KKK HH KKH HH HK KKK KK 


CONDENSER NUMBER( 3) 
HH KKK KKK HK HHH HHH HH HK KEK KKK KKH 
CONDENSER TYPE: SUBMARINE DESIGN 
. SINGLE PASS CONDENSER 
- DOUBLY ENHANCED TUBES . . 
smear) Ae ea ele pe, (ee eae. 


. . FLOW RATE: 13000. (GPM) PLOW eLOCI@y ?) 10.00 (FT/S) 
DI = 0.555 DW = 0.625 A= On O10 AFPE = 0.2450 NTYPE = 2 
mee] 0.0240 PI = 0.0949 ad sl Bal MI = 0.580 RI = 0.0075 
KW = 9.60 TCI = 66.10 PSAT = 6.50 QSTM = 0.85 TSAT = 143.89 
STMLD = 257000.0 RSCALE = 0.00033 
**¥*¥* DATA OUTPUT -— CONDENSER SIZING ROUTINE **** 
. MAXIMUM MAIN STEAM LANE ENTRANCE VELOCITY: 200. (FT/SEC) 
CONDENSATE DRAINAGE PLATE SPACING: 1.05 (F7.) 
CONDENSER HEAT LOAD: 0.220948+09 (BTU/HER) 
OUTLET COOLANT TEMP: 100.95 (DEG.F) 
TOTAL NUMBER OF TUBES: 1724.0 
EFFECTIVE TUBE LENGTH: TEROOnC RT .) 
. AVG. HEAT TRNFR. COEFF. C.W.: A981. eae 
. AVG. HEAT TRNFR. COEFF. COND.: 33785. (BTU/HR-FT**2-DEG.F 
AVG. OVERALL HEAT TRNFR. CORFF.: 928. ( BIU/HR-FT**2-DEG.F) 
mor = 14.94 LANE = 1.38 DTB = 526 ATB = 8.36 
VTB = 109.37 DTS = 6.02 ATS = 28.42 
**¥** DATA OUTPUT - WEIGHT & VOLUME CALCULATIONS **** 
WEXP = 389.7 WMISC = 10193.1 LHW = 5.17 DPTHDR = 3.01 
MATERIAL THICKNESS WEIGHT 
DENSITY (LB/ FT**3 ) (IN.) (EB) 
OUTER TUBE SHEET----—- 51S) 518 6.0000 155407 
INNER TUBE SHEET----- 488 .0 2.0000 3947. 
TUBE SUPPORT PLATE--- 488.0 0.5625 PAL dae 
fee SUN D LE—-—-—-———-—-—-— BAe 0 eee An 
CONDENSER SHELL------ 488.0 0.6250 7239. 
= ——————_—______ 488.0 0.5625 3556. 
ete X—-——-————-————_— 558.0 2.6400 6400. 


TOTAL CONDENSER DRY WEIGHT= 
TOTAL CONDENSER WET WEIGHT= 


TOTAL CONDENSER HEIGHT= 23.12 (FT.) 


OUTER SHELL DIAMETER= 


Sole eee 


5@965.5 (LB.) 
58689.8 (LB.) 
26.20 (TON) 
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ENCLOSED BOX VOLUME= 934.4 (FI**3) 
DRYCG = 10.97 WETCG = 10.46 


CONDENSER FRICTIONAL HEAD LOSS= 43.1 (FT.) 
. TOTAL SYSTEM HEAD LOSS= 78.9 (FT.) 
TOTAL SYSTEM PUMPING POWER= 361.0 (HP) 
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CONDENSER NUMBER( 4) 
Fe ie ie ie ie a Si it ie ite itt a itt aie» a it it Sit SN Sa 
CONDENSER TYPE: SUBMARINE DESIGN 
DOUBLE PASS CONDENSER WITH CONVENTIONAL RETURN HEADER DESIGN. 
DOUBLY ENHANCED TUBES .. 
**¥*¥* DATA INPUT **** 


FLOW RATE: 7900. (GPM) FLOW VELOCITY: 10.00 (FT/SEC) 
DE = 0.555 DW = 0.625 N= OOO AEPE = 0.2450 NlPPE =e 
EI = 0.0240 PI = 0.0949 13) YE MI = 0.580 RI = 0.0075 
KW = 9.60 TCI = 66.10 PSAT = 6.50 QSTM = 0.85 TSAT = 143.89 
STMLD = 257000.0 RSCALE = 0.00033 
¥¥*¥*¥ DATA OUTPUT - CONDENSER SIZING ROUTINE **** 
MAXIMUM MAIN STEAM LANE ENTRANCE VELOCITY: 300. (FT/SEC) 
CONDENSATE DRAINAGE PLATE SPACING: 2.25 (FT.) 
* * PROGRAM WARNING NR-3: SPECIFIED CONDENSATE DRAINAGE PLATE SPACING IS 
BEYOND TUBE SUPPORT LIMIT * * MAXIMUM TUBE DEFLECTION= 0.480 (IN.) 
PROGRAM WARNING NR-2: "WCWF" BEYOND SPECIFICATION LIMITS - SECTION ( 
* * PROGRAM WARNING NR-2: "WCWE" BEYOND SPECIFICATION LIMITS SECTION ( 
* * PROGRAM WARNING NR-2: “WCWF" BEYOND SPECIFICATION LIMITS SECTION ( 
* * PROGRAM WARNING NR-2: "“WCWF" BEYOND SPECIFICATION LIMITS SUaG GIRO IN a 
* * PROGRAM WARNING NR-2: "“WCWF" BEYOND SPECIFICATION LIMITS SECTION ( 
* * PROGRAM WARNING NR-2: "“WCWF" BEYOND SPECIFICATION LIMITS SECTION ( 
* * PROGRAM WARNING NR-2: "WCWF" BEYOND SPECIFICATION LIMITS SECTION ( 
* * PROGRAM WARNING NR-2: "“WCWF" BEYOND SPECIFICATION LIMITS SECTION ( 
CONDENSER HEAT LOAD: O.220948+09 (BTU/HR) 
OUTLET COOLANT TEMP: 125, M0 “Ope 
TOTAL NUMBER OF TUBES: 2096.0 
BFFECTIVE TUBE LENGTH: aba Ola eet 
AVG. HEAT TRNFR. COEFF. C.W.: 5688. (BTU /ER- Di. <22)nGan) 
AVG. HEAT TRNFR. COEFF. COND.: 36119. (BTU/HR-FT**2-DEG.F) 
AVG. OVERALL HEAT TRNFR. COEFF.: 954. (BTU/HR-PT**2-DEG.F) 
MEOT = 16.30 LANE = 0.82 DTB = 3.60 ATB = 10.16 
VTB = 146.81 DS = 5.25 ATS = (eee 
**¥** DATA OUTPUT -— WEIGHT & VOLUME CALCULATIONS **** 
WEXP = 429.7  WMISC = 9128.7 LHW = 5.20 DPTHDR = 2.62 
MATERIAL THICKNESS WEIGHT 
DENSELY (bby BI =~ 5 ) CIs) (LB. ) 
eek TUBE SHEET----- 558.0 6.0000 9187. 
INNER TUBE SHEET----- 488.0 2.0000 2678. 
TUBE SUPPORT PLATR--- 488.0 0.5625 788. 
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mies BUNDLE-—---—--=- 282.0 Bie conse: 5677. 
SeONDENSER SHELL----—- 488.0 0.6250 6882. 
oe a ———____-_-__ 488 .0 0.5625 AOE. 
Pee OX ——222—=>—--—- 2 - 558.0 2.6400 7781. 


TOTAL CONDENSER DRY WEIGHT= MiGs 45 (Be) 
TOTAL CONDENSER WET WEIGHT= OW Ons lB. ) 


BE 9 | ON) 
TOTAL CONDENSER HEIGHT= 24.13 (FT.) 
. OUTER SHELL DIAMETER= 5.34 aon 
ENCLOSED BOX VOLUME= 748.3 (PU**3) 
DRyee = 12.37 WETCG = 11.56 


CONDENSER FRICTIONAL HEAD LOSS= 85.0 (FT.) 
TOTAL SYSTEM HEAD LOSS= Poort.) 
TOTAL SYSTEM PUMPING POWER= $6527 (He ) 
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CONDENSER NUMBER( 5) 
KKH KH KKH HH KKK HK K KE KH KH KKH KKK HK 
CONDENSER TYPE: SURFACE SHIP DESIGN 
DOUBLE PASS CONDENSER WITH CONVENTIONAL RETURN HEADER DESIGN. 


DOUBLY ENHANCED TUBES . . 
ce AA BU Sax * 


. . FLOW RATE: 7900. (GPM) DaROVvevELOCmryY=: {6.00 (FT/SEC) 
DI = 0.555 DW = 0.625 Ae = 65010 AEPE = 0.2450 NIYPE = 2 
EI = 0.0240 PI = 0.0949 FE = 4.54 MI = 0.580 RI = 0.0075 
KW = 9.60 TCI = 66.10 PSAT = 6.50 QSTM = 0.85 TSAT = 143.89 
STMLD = 257000.0 RSCALE = 0.00033 
*¥*¥*¥* DATA OUTPUT - CONDENSER SIZING ROUTINE **** 
MAXIMUM MAIN STEAM LANE ENTRANCE VELOCITY: 200. (FT/SEC) 
CONDENSATE DRAINAGE PLATE SPACING: 1.05 (FT.) 
CONDENSER HEAT LOAD: O.22094E+09 (BTU/HR) 
. OUTLET COOLANT TEMP: W293 sal (Ie: 
TOTAL NUMBER OF TUBES: 2096.0 
. EFFECTIVE TUBE LENGTH: ie ae 
. AVG. HEAT TRNFR. COEFF. C.W.: 5950. eee 
. AVG. HEAT TRNFR. COEFF. COND.: 41106. ( BIU/HR-FT**2-DEG.F 
AVG. OVERALL HEAT TRNFR. COEFF.: 997. (BTU/HR-FT**2-DEG.F) 
LTOT = 14.61 LANE = 1.25 DTB = 3.60 ATB = 10.16 
VTB = 145.03 DTS = 6.09 ATS = 29.10 
¥**¥* DATA OUTPUT - WEIGHT & VOLUME CALCULATIONS **** 
WEXP = 429.7 WMISC = 6579.4 LHW = 5.17 DPTHDR = 3.04 
MATERIAL THICKNESS WEIGHT 
DENSITY (LB/FT**3 ) (IN. ) Vee 
ieee Sake T————________ 488.0 225000 3912. 
TUBE SUPPORT PLATE--- 488.0 0.5625 1708. 
ieee SUNDLE-—-—-—--—-—-—~ PEE ae HL HKEX 5086. 
Sony oNSER SHELL-—----- 488.0 0.6250 7161. 
ve ———————_—_______ 4388.0 0.5625 3599. 
Box ———————-_-____ 558.0 1.5000 4421. 
TOTAL CONDENSER DRY WEIGHT= 42896.9 (LB. ) 
TOTAL CONDENSER WET WEIGHT= 40877.5 (LB.) 
18.25 (TON) 


TOTAL CONDENSER HEIGHT= 22.82 (FT.) 


- OUTER SHELL DIAMETER= 
ENCLOSED BOX VOLUME= 


oe cen.) 
943.9 (FT**3) 
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DRYCG = 11.18 WETCG = 10.40 


CONDENSER FRICTIONAL HEAD LOSS= 76.7 (FT.) 
TOTAL SYSTEM HEAD LOSS= 129.7 (FT.) 
TOTAL SYSTEM PUMPING POWER= 560.8 (HP) 
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CONDENSER NUMBER( 6) 

KH KH KK HK HH HK HHH KK HHK HEH KK KKH KKH 
CONDENSER TYPE: SURFACE SHIP DESIGN 
SINGLE PASS CONDENSER 
SMOOTH INTERNAL TUBES . . 
eee) Ae ye eeu See oe 
: FLOW RATE: 13000. (GPM) ee eve a bOCrT Ys + "S. 00 (ET; SEC) 
DI 


= 0.555 DW = 0.625 AE = 0.010 AEPE = 0.2450 NTYPE = 1 
FI = 0.0000 PI =0.0000 FE= 4.54 MI = 0.000 RI = 0.0000 
KW = 9.60 TCI = 66.10 PSAT = 6.50 QSTM = 0.85 TSAT = 143.89 
STMLD = 257000.0 RSCALE = 0.00033 
¥*¥** DATA OUTPUT - CONDENSER SIZING ROUTINE **** 
MAXIMUM MAIN STEAM LANE ENTRANCE VELOCITY: 200. (FT/SEC 
CONDENSATE DRAINAGE PLATE SPACING: 1.65 (FT.) 
CONDENSER HEAT LOAD: 0 .22094E+09 (BTU/HR) 
OUTLET COOLANT TEMP: 100.95 (DEG.F) 
TOTAL NUMBER OF TUBES: 2155.0 
. EFFECTIVE TUBE LENGTH: 15S Cee at 
. AVG. HEAT TRNFR. COEFF. C.W.: 1419. (BTU/HR-FT**2-DEG.F 
. AVG. HEAT TRNFR. COEFF. COND.: 37557. ( BIU/HR-FT**2-DEG.F 
AVG. OVERALL HEAT TRNFR. COEFF.: 594. (BTU/HR-FT**2-DEG.F) 
LTOT = 16.27 LANE = 1.10 DTB = 3.65 ATB = 10.45 
VTB = 166.52 DTS = 5.84 ATS = 26.82 
¥*¥** DATA OUTPUT - WEIGHT & VOLUME CALCULATIONS **** 
WEXP = 435.7 £=WMISC = 6692.9 LHW = 5.15 DPTHDR = 2.92 
MATERIAL THICKNESS WEIGHT 
DENSITY (LB/FT**3 ) (IN.) (LB. ) 
6 488.0 2.0000 3517. 
TUBE SUPPORT PLATE--- 488.0 0.5625 1349. 
eee BUN DLE-——--—-——~~— 282.0 % HHHK 5826. 
CONDENSER SHELL------ 488.0 0.6250 7661. 
a ————$ —--_-____.— 488.0 0.5625 3438. 
aie oc ——————_______._ 558.0 1.5000 A545. 


TOTAL CONDENSER DRY WEIGHT= e264 5 LB =) 
TOTAL CONDENSER WET WHIGHT= 40574.4 (LB.) 
ON ) 


18.11 (7 

TOTAL CONDENSER HEIGHT= 24.35 (FT.) 

. OUTER SHELL DIAMETER= 5.95 ( FT.) 
ENCLOSED BOX VOLUME= 927.5 (PL**3) 
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inci CC — ae eras a WUDINGG. = “ease, 





CONDENSER FRICTIONAL HEAD LOSS= Soe) ls ) 
TOTAL SYSTEM HEAD LOSS= A? eee 
TOTAL SYSTEM PUMPING POWER= (940 Gee, 
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ia SS UMMARY <*** 


CONDENSER SHELL TOTAL ENCLOSED TOTAL WET TOTAL SYSTEM 
NUMBER DIAMETER HEIGHT BOX VOLUME WEIGHT PUMPING POWER 

(FT. ) (FD, ) (FPD**3 ) Gre (HP) 

i. 6.19 24.34 1eo2=2 LS 1Ole 381.3 

2 6.19 24.34 O@2 a2 61054. CaS 

3, 6.12 23.12 934.4 58690. 361.0 

Ae Dae 4 Zee) ORS 5D DOES Doo 1 

is 6.19 228? 943.9 40878. 360.8 

5 O 


»95 BAL 515 ev iesiD 40574. 194. 
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PROGRAM: VERTCONI 


CHAK KKKKKKKKEKKKKKEKKEEKE 


Gla") 0) C2 Oo: C2 Os © 0) 60 OO Oa ar aa a ere 


Cy Oy Ga cic) -Q 


© 


meockaAM "“VERTCONiI” IS A PRELIMINARY SIZING ROUTINE FOR VERTICAL TUBE 
STEAM SHIP/SUBMARINE PROPULSION CONDENSERS. THE PROGRAM TAKES INITIAL 
INPUT DATA BOTH INTERACTIVELY AND FROM DATA FILES. THE PROGRAM OUTPUT 
CONSISTS OF TABULATED VALUES FOR TOTAL & COMPONENT CONDENSER WEIGHTS, 
POEUMES, AND PUMPING POWER. 


TWO BASIC VERTICAL TUBE CONFIGURATIONS ARE AVAILABLE WITH THIS PROGRAM 
EyypetHEY ARE: (1) DOUBLY ENHANCED TUBES, OR (2) SMOOTH INTERNAL TUBES 
WITH EXTERNAL ENHANCEMENT ONLY. SEVERAL GEOMETRIC VARIATIONS WITHIN 
THESE TWO BASIC CONFIGURATIONS CAN BE INVESTIGATED WITH "VERTCONI". 


ALSO, TWO BASIC CONSTRUCTION CONFIGURATIONS ARE AVAILABLE FOR "DOUBLE- 
Meee GONDENSERS: (1) CONVENTIONAL RETURN HEADER DESIGN, AND 
Cama UE CONS PFRUCIT LON 


THE VALUES OF CONDENSATE DRAINAGE PLATE SPACING (FT.), AND MAXIMUM 
MAIN STEAM LANE ENTRANCE VELOCITY (FT/SEC) MAY BE SPECIFIED BY THE 
USER INTERACTIVELY WHEN RUNNING THIS PROGRAM. IF THESE VALUES ARE 
NOTSSPECIFIED, THEN THE PROGRAM WILL AUTOMATICALLY DETERMINE 
RECOMMENDED VALUES. 


DIMENSION DATA(100,5), OUTPUT(100,6) 

REAL ITSD,KSAT,KSW,KW,L1,LANE,LHW, LTOT,MI,MU,NT,NU 
INTEGER STM,CONFIG,CTYPE, DRAIN 

DATA NOE/’NO ‘’/,NO/’N ‘’/,ITYPE/’SUB ’/ 

DATA PIE/3.1415927/ ,PD/1.35/ 


= * STATEMENT FUNCTIONS FOR THERMAL & MECHANICAL PROPERTIES * * & 


Heise — a t22061 — -148i615E-02 * TCS + .5516445E-05 * TCS **2 
RE(VM)= Vie oDie~ S004: / NUCLCS ) 
Peer osy— ,0UL4S69 * TCS**2.— .3134 * TCS + 21.89 
aeh eo =——) —.00000S035 * TCS**2 — .00] * TCS + .291 
NU= KINEMATIC VISCOSITY OF COOLING WATER (FT**2/HR) 
RE= REYNOLDS NUMBER COOLING WATER 


PRSW= PRANDTL NUMBER COOLING WATER 
KSW= CONDUCTIVITY OF COOLING WATER (BTU/HR-FT-DEG.F) 


FFCARG2)= -1. / (2.46 * LOGCARG2**MI + RI)) 
ST(ARG3 ,ARG4)= FF(ARG2) / (5.68 * ARG3**(-.125) *SQRT(PRSW(TCS)) 
1 * ARG4**.136 + GAMMA) 
Pe FRICTION FACTOR [SQRT(F/8)] 
ST= STANTON NUMBER 





Cl°'Co GiGi) 


PP = 


KIN= 20 
KOUg= 21 
KSCR= 6 


menemour, AND KSCR ARE OPERATORS THAT SPECIFY INPUT & OUTPUT DEVICES. 
mmeaes CASE KIN & KOUT SPECIFY INPUT & OUTPUT DATA FILES RESPECTIVELY 
MviberooGk OoOPECIFIES INPUT & OUTPUT AT COMPUTER TERMINAL. 


pete * DATAC INTERACTIVE & FILE)-INPUT/OUTPUT * * * * 


100 


104 


106 


108 


WRITE(KSCR,100) 

FORMAT(1X,T14,’* * WELCOME TO PROGRAM: VERTCON,VERSION-1 * *’//T 
12,’ ENTER PROGRAM RUN NUMBER’) 

READ(KSCR,*) NUMBER 

WRITE(KOUT,104).NUMBER 

FORMAT(/////T21,’** PROGRAM: VERTCON,VERSION-1 **’////T25,’PROGR 
1AM RUN NUMBER(’,13,’)’/////) 


HmLPe (KOUT , 106) 

FORMAT(1X,T26,’**** VARIABLE LIST ****’//T2,’AE= EXTERNAL FLUTE A 
[iMeEEETUDE CIN.) ,138,’.’,T41, MI= OPERAND FOR FRICTION FACTOR; ’/T2, 
ere r= AMPLITUDE-TO-PITCH RATIO OF’ ,1T38,’°’.’,T45,’ HELICAL INTERNAL 
PmenDGING /1T6,° EXTERNAL RIDGING’ ,T38,°’.’ ,T41,’NTYPE= TUBE TYPE: 1-FO 
IR SMOOTH IN-’/T2,’ATB= AREA OF TUBE BUNDLE (FT**2)’ ,1738,’.°’,T45,’T 
LERNAL TUBE; AND 2-FOR DOUBLY’/T2,’ATS= AREA OF TUBE SHEET (FT**2)’ 
1,7T38,’.’,T45,’ENHANCED TUBES’/T2,’DI= INTERNAL TUBE DIAMETER (IN.) 
Iomtoac, . ,t41,°PI= PITCH OF INTERNAL HELIX(IN.)’/T2,’DPTHDR= HEADE 
ieeeiePTH (FT.)’ ,138,°.° ,T41,°PSAT= CONDENSER OPERATING PRESSURE’ /T2 
1,’DRYCG= HEIGHT OF CENTER OF GRAVITY’ ,T38,’.’ ,T45,’(IN.HG)ABSOLUTE 
1‘/T6,’ABOVE CONDENSER BOTTOM AT DRY’ ,1T38,’.’,T41,’QSTM= QUALITY OF 
MeeyGut STEAM TO’ /T6,°WEIGHT (FT.)’ ,T38,°.’ ,T45, “CONDENSER’/T2,’°DTB 
l= DIAMETER OF TUBE BUNDLE (FT.)’,1T38,’.’,T41,’RI= OPERAND FOR FRIC 
[MErON FACTOR,’ /T2,°DTS= DIAMETER OF TUBE SHEET(FT.)’,T38,’.’,T45,°H 
MEGCAL INTERNAL RIDGING’ ) 

WRITE(KOUT,108) 

momar C lx, 22, DWe TUBE WALL DIAMETER (IN.)’ ,1738,’.’,T41,’RSCALE= 
] FOULING RESISTANCE’/T2,’EI= OPERAND FOR FRICTION FACTOR’ ,T38,’.’, 
Mero, (HR-FT**2 -DEG.F/BTU)’/T6,’ HELICAL INTERNAL RIDGING’ ,T38,’.’,T 
141,’STMLD= STEAM LOAD (LBM/HR)’/T2,’FE= OPERAND FOR CONDENSING HEA 
Meese, . ,T41,°TSAT= SATURATION TEMP. (DEG.F)’/T6,’TRANSFER COEFF 
eG@meNT (>138,°.° ,T41,°VTB= VOLUME OF TUBE BUNDLE (FT**3)’/T2,’KW= C 
LONDUCTIVITY OF TUBE WALL’ ,T38,’.’,T41,’WEXP= EXPANSION JOINT WEIGH 
Meld.) /16,° (BTU/HR-FT-DEG.F)’ ,138,’.’,T41,’°WMISC= WEIGHT OF MISC 
PinmANEOUS /T2,°LANE= STEAM LANE BREADTH (FT.)’ ,1738,’.°’,T45,’COMPON 
ents (L8.) /T2, LHW= LENGTH OF HOTWELL (FT.)’,T38,’°’.’,T41,’WETCG= 
PeeeGHt! OF CENTER OF GRAVITY’/T2,°LTOT= TOTAL TUBE LENGTH (FT.)’,T3 
18,’.’,T45,’° ABOVE CONDENSER BOTTOM AT WET’/T2,’TCI= INLET COOLANT T 
Meee CDEG.F) ,1T38,°.° ,T45,°WELGHT (FT.)’/) 
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WRITE(KSCR,110) 
FORMAT(1X,’ENTER THE NUMBER OF CONDENSERS TO BE SIZED’) 
READ(KSCR,*) NCOND 


DO 10 N= 1, NCOND 


CONFIG= 3 

WRITE(KOUT,112) 

FORMAT ( a l ‘ ae es ] 5 OLe ee eee eee ee ee ee ee eee ee ee ee ee oo) 
WRITE(KOUT,114) N 

WRITE(KSCR,114) N 

FORMAT(1X,T25,’CONDENSER NUMBER(’ ,13,’)’) 


WROTE CKOUT., 115) 
FORMAT ¢ IL Sey ples l ; Cee eee ee ee eee ee eee ee ee ee ee oe ) 


READ(KIN,121) CTYPE 

FORMAT(A4) 

READ(KIN,*) NTYPE,DI,DW,AE,AEPE,EL,PI 

READ(KIN,*) FLUTE,FE,MI,RI,KW,RSCALE 

READ(KIN,*) TCI,TSAT,QSTM,STMLD,PSAT,TIS 

READ(KIN,*) TOTS,TSHL,TTSP,THW,THDR,ITSD 

READ(KIN,*) OTSD,SHLD,TSPD,HWD,HDRD,TBD, ETUBE,TCOVER,COVERD 


IF(CTYPE .EQ. ITYPE) THEN 

INDEX1= 1 

WRITE(KOUT, 138) 

FORMAT(1X,’. . CONDENSER TYPE: SUBMARINE DESIGN’) 
ELSE 

INDEX1= 2 

WRITE(KOUT,140) 

FORMAT(1X,’. . CONDENSER TYPE: SURFACE SHIP DESIGN’) 
END IF 


WRITE(KSCR, 116) 
FORMAT(1X,’ENTER "1" FOR SINGLE PASS, OR "2" FOR DOUBLE PASS CON 


1DENSER’ ) 


READ(KSCR,*) NPASS 

IF(NPASS .LE. 1) THEN 

WRITE(KOUT,118) 

FORMAT(1X,’. . SINGLE PASS CONDENSER . .’) 
ELSE 

END IF 


IF(NPASS .GT. 1) THEN 
WRITE(KSCR,155) 
FORMAT(1X,’TWO BASIC CONFIGURATIONS ARE AVAILABLE FOR "DOUBLE PA 


MeomGCONDENSERS: /15, (1) CONVENTIONAL RETURN HEADER DESIGN, AND’ /T 
esc 2 oe U-TUBE” CONSTRUCTION /1T2,°ENTER 1 OR 2 FOR CONFIGURATION § 





160 


162 


880 


22 


124 


126 


130 


aS 2. 


13 6 


142 


1ELECTION’ ) 

READ(KSCR,*) CONFIG 

ELSE 

END IF 

MH@GONELG .Gr. 2) THEN 

GO TO 880 

ELSE IF(CONFIG .LE. 1) THEN 

WRITE(KOUT, 160) | 

FORMAT(1X,’. . DOUBLE PASS CONDENSER WITH CONVENTIONAL RETURN HE 
LADER DESIGN. ’) 

ELSE 

WRITE(KOUT, 162) 
FORMAT(1X,’. . DOUBLE PASS CONDENSER WITH “U-TUBE" CONSTRUCTION.’ ) 

END IF 

CONTINUE 


IF(NTYPE .LE. 1) THEN 

WRITE(KOUT, 122) 

FORMAT(1X,’. . SMOOTH INTERNAL TUBES . .’) 
ELSE 

WRITE(KOUT, 124) 

FORMAT(1X,’. . DOUBLY ENHANCED TUBES . .’) 
END IF 


WRITE(KSCR, 126) 

FORMAT(1X,’ENTER: (1) COOLANT FLOW RATE (GPM)’/T9,‘’(2) COOLANT F 
1LOW VELOCITY (FT/SEC), AND’/T9,’(3) FRICTION FACTOR FOR INTERNAL T 
LUBE’) 

READ(KSCR,*) GPM,VM,FFT 


WRITE(KOUT, 128) 

FORMAT(1X,T27,’°**** DATA INPUT ****’ ) 

WRITE(KOUT,130) GPM,VM : 

momen eo . FLOW RATE: “.F6.0,° (GPM) . . FLOW VELOCITY: “ ,F 
Meee, (FT/SEC) ..’) 

Pree (KOUT, 132) D1, DW,AE,AEPE,NTYPE,EIL,PI,FE,MI,R1,KW,TC1,PSAT, 
l QOSTM,TSAT ,STMLD,RSCALE 

omens Olw= 9.55.3 ,T16,°DW = * .F5.3,T30,°AE = °,F5.3,T44,°AE 
Mees P6O.4,T61,° NTYPE = ° ,12/T2,°EI = ’ ,F6.4,T16,’PI = °,F6.4,T30 
Meee = 5 F5.2,7T44,°ME = ° ,F5.3 ,T61,°RI = ° ,F6.4/T2,’°KW = ’,F6.2,T1 
omeemote=  .F6.2,7T30, PSAT = “ ,F4.2,T44,°QSTM = ’ ,F4.2,T61,’°TSAT = 
eee 12 STMLD = ° .F9.1,T30,°RSCALE = ’ ,F7.5/) 

WRITE(KOUT, 136) 

FORMAT(1X,T15,’°**** DATA OUTPUT - CONDENSER SIZING ROUTINE ****’ ) 


MRL LEC KSCR , 142) 
FORMAT(1X,’DO YOU WANT TO SPECIFY MAXIMUM MAIN STEAM LANE ENTRAN 
men VELOCITY (FT/SEC)?’/T6,’YES OR NO’) 
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READ(KSCR,144) STM 


144 FORMAT(A4) 
IF((STM .EQ. NO) .OR. (STM .EQ. NOE)) THEN 
INDEX2= 2 
WRITE(KSCR,146) 
146 FORMAT(1X,’PROGRAM WILL SELECT RECOMMENDED MAXIMUM MAIN STEAM LA 


INE ENTRANCE VELOCITY USING CONDENSER OPERATING PRESSURE AS SELECTI 
1O0N CRITERIA.’//) 

ELSE 

INDEX2= 1 

WRITE(KSCR,148) 

148 FORMAT(1X,’ENTER MAXIMUM MAIN STEAM LANE ENTRANCE VELOCITY (FT/S 

EC)’ ) 

READ(KSCR,*) STMVEL 

END IF 


MmrNDE sen. 1) GO TO 770 
eo 20 771 
Z70 CONTINUE 
[MCPSar .bT. 1.) THEN 
STMVEL= 500. 
MESnLECPSAT .GT, 5.) THEN 
STMVEL= 200. 
ELSE IF(PSAT .LE. 3.) THEN 
VEL= 600. - 100. * PSAT 
STMVEL= ANINT(VEL) 
BSE IF(PSAT .GT. 3.) THEN 
VEL= 450. - 50. * PSAT 
STMVEL= ANINT(VEL) 
ELSE 
END IF 
C STMVEL= MAXIMUM MAIN STEAM LANE ENTRANCE VELOCITY (FT/SEC) 
ay | CONTINUE 
WRITE(KOUT,150) STMVEL 
150 FORMAT(1X,’. . MAXIMUM MAIN STEAM LANE ENTRANCE VELOCITY: ’,F4.0 
mee (FT/SEC) ) 





WRITE(KSCR,164) 
164 FORMAT(1X,’DO YOU WANT TO SPECIFY CONDENSATE DRAINAGE PLATE SPAC 
iemNG (FT.)?’/T6,°YES OF NO’) 
READ(KSCR,166) DRAIN 


166 FORMAT(A4) 
IF((DRAIN .EQ. NO) .OR. (DRAIN .EQ. NOE)) THEN 
INDEX3= 2 
WRITE(KSCR,168) 
168 FORMAT(1X,’PROGRAM WILL SELECT RECOMMENDED CONDENSATE DRAINAGE P 


PeATE SPACING.” //) 
ELSE 
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CG] 


eG 


CGA 
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i / 


] 
HFG= 
DENSC= 
KSAT= 
MU= 
SIGMA= 
SPVOL= 


WF= FL 


QT= CO 
AW= TO 
WC= CO 


Eom 


INDEX3= 1 

MEIeDE CKSCR. 170) 

FORMAT(1X,’ENTER CONDENSATE DRAINAGE PLATE SPACING (FT.)’) 
READ(KSCR,*) DRNPLT 

WRITE(KOUT,172) DRNPLT 

FORMAT(1X,’. . CONDENSATE DRAINAGE PLATE SPACING: ’,F5.2,’ (FT.) 


) 
END IF 


SeruerlLONG fFOR SIHERMAL & MECHANICAL PROPERTIES * * * *& 


HFG= PG lRmnOn n= boy 2 Ota FSAT + 65059357 * PSAT**2 - 
e102 eee Anan eee DIU 29 956 * PSAT**4 
DeisG=  ESAt=*2 *) .O008629 — PSAT * .21843 + 62.347 
wl SAUe 2 ate (— 05904) + PSAT * 3.0435 + 356.6) * .001 
= ee Veo Odes cao) ~ LSAT - .124285565-03 * TSAT**2 
Orbe MA= 90057445 — .7156956E-05"* TSAT - .64168E-08 * TSAT*#2 
SOL ele eymogl. = 756.2292 * PSAT + 209.3 * PSAT**2 - 
oe Oc on ee oA lwo tS be 16875 * PSAT#*4 
LATENT HEAT OF CONDENSATION (BTU/LBM) 
DENSITY OF CONDENSATE (CLBM/FT#3 ) 
GONDUCTIVITY OF CONDENSATE (BIU/HR-FTI-DEG.F) 
SeoObUIEeVISGOSITY OF CONDENSATE (LBM/HR-FT) 
SURFACE TENSION OF CONDENSATE (LBF/FT) 
SoG iG VOLUME OF STEAM AT SAT. CONDITIONS (FT¥**3/LBM) 


elo oo) Us DENSCA*2  *  AR2*3 * AR/AEPE * EXP(=-3 .33 *AEPE) 
OODING CONDENSATE FLOW RATE PER FLUTE (LB/HR) 


MCAS «LE. «.015) THEN 

peme b= 95 294272 = 522.1174 * AE + .1928462E+05 * AE**2 
meok IF (AE . LE. .025) THEN 

pobie — eo PlO003 = 925.2006 * AB + 520.0139 * AE **2 
ELSE 

proecl— 03 05 635-9 1.345982 * AE + 14.93315 * AE**2 
END IF 


=SCALCULATION OF BASIC GONDENSER DATA * * * & 


QT= STMLD * QSTM * HFG 

AW= GPM * .0022283 / VM 

WC= AW * VM * 230400. 

NDENSER HEAT LOAD (BTU/HR) 

TAL CROSS-SECTIONAL AREA REQUIRED FOR COOLANT FLOW (FT*%2) 
OLING WATER FLOW RATE (LB/HR) 


POUr=sIGle + OT / (.95 '* WC) 
ARGl= DI / 24. 
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rc C2) to to C700 C2 
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NT= AW / (PIE * ARG1**2) 

NT= ANINT(NT) 

TNT= NT * NPASS 

DN= DV tea bee 2. 

OD= IDR Set eel 
TOUT= OUTLET COOLANT TEMPERATURE (DEG.F) 
NT= NUMBER OF TUBES PER CONDENSER PASS 
TNT= TOTAL NUMBER OF TUBES 
DN= NOMINAL TUBE DIAMETER CIN.) 
OD= OUTSIDE TUBE DIAMETER (CIN.) 


* * * * DETERMINATION OF CONDENSATE DRAINAGE PLATE SPACING * * * * 


Meacd= S SIMVEL 7 SQRTIQ36/2.76 * (TSAT + 459.67)) 
CDORAG= ./5 * MACH + .975 
WDRAG= CDRAG * OD * DRNPLT * STMVEL**2 / (24. * SPVOL) 
EPLltCcH= PD * OD 
MACH= MACH NUMBER OF STEAM INLET FLOW TO CONDENSER 
CDRAG= DRAG COEFFICIENT FOR STEAM INLET FLOW OVER CONDENSER TUBES 
WDRAG= DRAG FORCE LOADING ON TUBES DUE TO STEAM VELOCITY (LBF.) 
PD= Ht li Ca rO=DIAMETER RATLO 
meeGh—- TUBE PITCH CIN.) 


PeeLN DEMS LEE. 1) GO TO 774 
DRNPLT= 2.5 


DO 40 Nl= 1, 60 


DELT= 5. 

T2= 71. 
Mtpeent=-3." & "DELT=5." ARE BOTH ASSUMED VALUES TO INITIATE THE 
FOLLOWING ITERATIVE CALCULATIONS. 


DO 30 N2= 1, 190 


DMeS= T2 = ICI 

mea- TCr + DTS / 2. 

ARG7= (TSAT ~ TCI) / (TSAT - T2) 

DTLM= DTS / LOG(ARG7) 
DTLM= LOG MEAN TEMPERATURE DIFFERENCE (DEG.F) 
THIS ANALYSIS EXAMINES A SAMPLE TUBE SECTION OF LENGTH= DRNPLT TO 
DETERMINE RECOMMENDED VALUES FOR CONDENSATE DRAINAGE PLATE SPACING. 
Peper UBE SECTION IS LOCATED IN THE COOLING WATER INLET SECTION OF THE 
CONDENSER, WHERE THE CONDENSATION RATE/PER UNIT TUBE LENGTH WILL BE AT 
A MAXIMUM. 
DRNPLT= CONDENSATE DRAINAGE PLATE SPACING (CFT.) 
DELT= Selene ee - TUBE WALL TEMP. (DEG.F) 
T2= Pitter ON “CoWe OULLET TEMP. (DEG.F) 





SS eS ie: 


Ga G3 


?) 


eee 


DTS= ieee toh eAGROSS) TUBE SECTION (DEG.F) 
TCS= PvGHRAGE@C.W. TEMP. FOR EACH SECTION (DEG.F) 
DTLM= LOG MEAN TEMPERATURE DIFFERENCE (DEG.F) 


Pew YPhe. LE. £) THEN 
Wie 2 Sem NRGWC TCS )ey SDL * 12. * REC VM)**.8 * PRSW(TCS)**.4 
HW= HEAT TRANSFER COEFFICIENT COOLANT SIDE FOR SMOOTH INTERNAL TUBE 
CerU,y HR-FI4*22—DEG.F ) 
ELSE 
ARG2= 7. / RE(CVM) 
CoMmMAa=e—ts  * (LOG(Z. *% EL/DL) * 2.5 + 3.75) 
ARG3= EI / PI 
ARG4= EI / DI * RECVM) * FF(CARG2 ) 
HW= Pe eenoN GCs) em REC VM) * PRSWC(TCS) * STCARG3 ,ARG4) / DI 
HW= HEAT TRANSFER COEFFICIENT COOLANT SIDE FOR DOUBLY ENHANCED TUBES 
(BTU/AR-FT**2 -DEG.F) 
BND LF 


DO 20 N3= 1, 10 


ARG5= QSTM * HFG * WF / (DRNPLT * DELT) 
ARG6= KSAT**3 * DENSC*¥SIGMA*QSTM*HFG * 4.17*10.%**8/(MU*DELT) 
ARG8= AE / 12. 
HCOND= 7.2324 * ARG5**.0774 * ARG8**.2307 * FE**.9226 /(AE/AEPE) 
I * ARG6**.2307 
MeonD= HEAT TRANSFER COEFFICIENT CONDENSATE (BTU/HR-FT**2-DEG.F) 


Dole CDN/(DIE*HW)+FRSCALE + 1./HCOND + LOG(DN/DI)*DN/(24.*KW)) 
US= OVERALL HEAT TRANSFER COEFFICIENT (BTU/HR-FT**2-DEG.F) 


QS= .95 * Wo * DTS 

Deri Os + si2. / CNT * PI * DN * DRNPLT * HCOND) 
QS= HEAT LOAD FOR TUBE SECTION (BTU/HR) 
20 CONTINUE 


Pi—wOoS * 12. / (NI * PIE * DN * US * DTLM) 
frcol .Gl. DRNPLT) THEN 
me—et?2 - 2.025 
Bio E 
T2= T2 + .049 
END IF 
COMP= ABS(LI - DRNPLT) 
PreeO ve 5. .0)) THEN 
GO TO 772 
ELSE 
ED LF 

3). 0) CONTINUE 


fo] 2 CONTINUE 








ee DEFL= 


176 


40 


174 


PORMAT(IX,’. .« 
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WCWF= QS / (NT * QSTM* HFG * WF * FLUTE) 

DEFL= .26526*WDRAG*DRNPLT**3 / (ETUBE*(OD**4 - 
MAXIMUM TUBE DEFLECTION (IN.) 

IF(WCWF .LE. SPEC1) THEN 

WRITE(KOUT,176) DRNPLT 

WRITE(KSCR,176) DRNPLT 

CONDENSATE DRAINAGE PLATE SPACING: 


DI**4)) 


a Sa nye) 
600 LO 773 

PESEOLEC(WOWE .GT. SPEC!) 
DRNPLT= DRNPLT - .05 

ELSE 
END IF 

CONTINUE 

MRCGOMP .GT. .05) THEN 
WRITE(KSCR,174) 

WRITE(KOUT,174) 

FORMAT(1X,’* * PROGRAM WARNING NR-IL: 


Be emrOhbovGher lt Gh/?2 .) ) el HEN 


“DORN ET SBEYOND  SPRG LY PeAla 


MONS LIMITS * *°/) 


ens 


178 


ELSE 
END IF 

CONTINUE 

IF(WCWF .GT. SPEC1) THEN 
WRITE(KSCR,178) 

WRITE(KOUT,178) 

FORMAT(1X,’* * PROGRAM WARNING NR-2: 


LWCWH “BEYOND  SPECIFIGAT LON 


meerMrrTs *.*/ /) 


aes 


180 


Peer GALE SPACING IS BEYOND TUBE SUPPORT LIMIT * *°/T2,°. . 
imerUBR DEFLECTION= 


ELSE 
END IF 
CONTINUE 
DEFL= 1375. * WDRAG * DRNPLT**3 / (ETUBE * (OD**4 
MoeCDEPL .GT. PITCGH/2.) THEN 
WRITE(KOUT,180) DEFL 

WRITE(KSCR,180) DEFL 

FORMAT(1X,’* * PROGRAM WARNING NR-3: 


- DI**4)) 


SeEGIEF LED CONDENSATE SDRAINA 
MAXIMUM 
ote CEN 
OLS ED 

END LF 


“CALCULATION OF EFFECTLVE TUBE LENGTH * * * * 


SUML= 
SUMQ= 
AVGHW= 
AVGHC= 
AVGU= 
i= TCL 


So Oe) 
e 
Ooooo 


DO 70 N4= 1, 100 








50 


60 


eee 


DELT= 5. 
T2= es i. 


DO 60 N5= 1, 190 


Pio) T2 —- I! 

mes Tl’ + DTS / 2. 
PeGi= CisAl = [1) / (TSAT - T2) 
DTLM= DTS / LOG(CARG7) 


IF(NTYPE .LE. 1) THEN 

Hw= .023 * KSWC(TCS)/DI * 12. * RE(VM)**.8 * PRSW(TCS)**.4 
ELSE °- 

paGe= 7. / RECVM) 

eta = bo (LOG(2. * EEL/DI) * 2.5 + 3.75) 

SpGS= EL / PI 

ARG4= EL / DE * REC VM) * FFCARG2) 

HW= 12. * KSW(TCS) * RE(VM) * PRSW(TCS) * ST(ARG3,ARG4) / DI 
END IF 


DO 50 N6= 1, 10 


ARG5= QSTM * HFG * WEF / (DRNPLT * DELT) 

ARG6= KSAT**3 * DENSC * SIGMA * QSTM * HFG*4.17%*10.**8/(MU*DELT) 

PeGo- AE / 12. 

HCOND= 7.2324 * ARG5**.0774 * ARG8**.2307 * FE**.9226 /(AE/AEPE) 
* ARGO6** .230/7 


US= 1. / (DN/(DI*HW)+RSCALE + 1./HCOND +LOG(DN/DI)*DN/(24.*KW) ) 
QS= .95 * wo * DTS 

DELT= QS * 12. / (NT * PIE * DN * DRNPLT * HCOND) 

CONTINUE 7 


Memes * 12. / (NT * PIE * DN * US * DTILM) 
mei .Gi. DRNPLI) THEN 

i= t2 = .025 

ELSE 

Tm2= T2 + .049 

END IF 


COMP= ABS(LI-DRNPLT) 
MmeecOMP .LE. .01) THEN 
GO TO 775 

ELSE 

END IF 

CONTINUE 





-8)]-— 


775 WCWF= QS / (NT * QSTM * HFG * WF * FLUTE) 
IF(WCWF .GT. SPEC1) THEN 
WRITE(KOUT,182) N4 
WRITE(KSCR,182) N4 


182 FORMAT(1X,’* * PROGRAM WARNING NR-2: "WCWF'" BEYOND SPECIFICATION 
mene noe= SECTION (°,13,°) * * °) 
ELSE 
END IF 


DATA(N4,1)= QS 
DATA(N4,2)= HW 
DATA(N4,3)= HCOND 
DATA(N4,4)= US 
DATA(N4,5)= DRNPLT 
C * * CALCULATION OF FINAL SECTION LENGTH * * 


SUML= DATA(N4,5) + SUML 
SUMQ= DATA(N4,1) + SUMQ 
AVGHW= DATA(N4,2) + AVGHW 
AVGHC= DATA(N4,3) + AVGHC 
AVGU= DATA(N4,4) + AVGU 


DELT= 5. 
QFS= QT - SUMQ 
mes= (hour + T2)/2. 





6 
IF(NTYPE .LE. 1) THEN 
HW= .023 * KSW(TCS)/DI * 12. * RE(VM)**.8 * PRSW(TCS)**.4 
ELSE 
Neel = 7./ RECVM) 
ARG4= EI / DI * RE(VM) * FF(ARG2) 
| HW= 12. * KSW(TCS) * RE(VM) * PRSW(TCS) * ST(ARG3,ARG4) / DI 
. END IF 
C 
: TL= 2.0 
DO 80 N7= 1, 10 
Maco= OSIM * HFG * WE / (TL * DELT) 
ARG6= KSAT**3 * DENSC * SIGMA * QSTM * HFG*4.17%*10.**8/(MU*DELT) 
HCOND= 7.2324 * ARG5**.0774 * ARG8**.2307 * FE**.9226 /(AE/AEPE) 
1 * ARG6** .2307 
US= 1. /(CDN/(DI*HW)+RSCALE + 1./HCOND + LOG(DN/DI)*DN/(24.*KW)) 
PeGv=—(TSAT = T2) / CTSAT - TOUT) 
DITLM= (TOUT - T2) / LOG(ARG7) 
QP= QFS * 12. / (PIE * DN * NT) 
a Cea (US * DILM) 
DELT= QP / (TL * HCOND) 
80 CONTINUE 
c 


Pci. LB. DRNPLT) THEN 
NS = N4 + 1 





eo = 


SUME= SUML + TL 
AVGHW= AVGHW / NS 
AVGHC= AVGHC / NS 
AVGU= AVGU / NS 
GOwrO 7/76 

ELSE 

l= 2 

END IF 
WRITECKSCR,181)N4 


70 CONTINUE 
C 
C * * CONDENSER WEIGHT & VOLUME CALCULATIONS * &* 
C 

716 WRITECKSCR, 183 ) 


MOTh=@SUML / NPASS * 1.025 


Pau DE xt  jbE. lf) THEN 

imeem (9,1 25°+ TLS) (/ 6. + TOTL 
ELSE 
MeOt= TISs/ 6,.°+° TOTL 

END IF 


MiM= se boo.27 / PET CHe*2 
Giemi= TOTAL EFFECTIVE TUBE LENGTH (FT.) 
iMmeot= TOTAL TUBE LENGTH (FT.) 
LANE= STEAM LANE BREADTH (FT.) 


CivGs Ca 


AT B= TNT) IND 

DTB= SQRT(4. * ATB / PIE) 

eeGlO= (DIB +2. * LANE) / 2. 

ATS= PIE * ARG1O#*%*2 

DTS= Dis etc. * GAN, 

VTB= TOTL * ATB 
ATB= AREA OF TUBE BUNDLE (FT¥%2 ) 
DTB= DIAMETER OF TUBE BUNDLE (FT.) 
ATS= AREA OF TUBE SHEET (FT¥*2) 
DTS= DIAMETER OF TUBE SHEET (FT.) 
VTB= VOLUME OF TUBE BUNDLE (FT¥*%3) 





C2 OM ©} OC} © 


ARG12= DTS - 2 * LANE + OD / 6. 


181 FORMAT(T2,’* CONDENSER SECTION(’,13,’) CALCULATED *’) 


OS ont (rea, ~ FENAL CONDENSER SECT ION-CALCULATED *° ) 


feanG= —.O0001l06 * STIMLD * SPVOL / ((TOTL - 1.84) * STMVEL) 


TND= NUMBER OF TUBES PER SQ. FT. FOR 60 DEGREE TRIANGULAR PITCH 


WPl= ~7/85398 * (CARG12**2 - OD**2 * TNT * .00694) 


WP2= 6s 2 = DI S<*2—- OD**2 *XTNT* .00694) 
WOTS—=— O©1SD * TOTS / 6. * WP2 
Wits blo) * TES / 6. * WP2 





A PS ee BI PP Sel SS 


C2 OC) Ci Gare 


WOTS= 
WITS= 
WISP= 
WTB= 

WSHL= 
DSHL= 


ee 


WTSP= NS / NPASS * TSPD * TTSP/12. * WP1l 

WTB= WOU ec DN«s2 = Dl**2) * LTOT * TBD * TNT 
DSHL= DTS + TSHL / 6. 

DPTHDR= DTS / 2. 

WSHL= wossgs ~*~ SHED * LTOL = (DSHL**2 -DTS**2 ) 
WEIGHT OF OUTER TUBE SHEETS (LB.) 

WEIGHT OF INNER TUBE SHEETS (LB. ) 

Vito tot ne eS URPPORT PLATES (LB. ) 

VEC viEsORMIUBRE BUNDLE (LB. ) 

WEIGHT OF SHELL (LB.) 

OUGERSDTAMETER OF SHELL (FTI. ) 


DPTHDR= HEADER DEPTH CFT.) 


LHW= 
VHW= 
WEXP= 
WHDR= 
WHW= 


7 oe 


WMISC= 
WDRY= 
WLIQ= 
WET= 


WEXP= .39167 * DTB * TSHL * SHLD 

WHDR= .4083 * DTB**2 * THDR * HDRD 

VHW= STMLD / 3690. - .0417 * ATB * NTSP - .2618 * TOTL 
DHW= DSHL + l. 

LHW= VHW / (.7854 * DHW**2) + DPTHDR + .5 

WHW= .2618 * (DHW**2 / 4. + DHW * LHW) * THW * HWD 
LENGTH OF HOTWELL (FT.) 

VOLUME OF HOTWELL (FT.) 

WEIGHT OF EXPANSION JOINT (LB.) 

WEIGHT OF HEADER (LB.) 

WelGH@t POF HOTWELL (LB. ) 


MeCCONFIG .CT. 2) THEN 

Go TO 999 

ELSE 

END IF 

MeCCONFIG .¢CT. 1) THEN 

WCOVER= .20415 * DTB**2 * TCOVER * COVERD 

WHDR= WHDR/2. + WCOVER 

WUTUBE= .005454 * (DN*¥*2 - DI**2) * DTB * TBD * TNT 

WIB= .005454 * (DN**2 - DI**2) * LTOT * TBD * TNT + WUTUBE 
ELSE 

END IF 

CONTINUE 

WT= WOTS + WITS + WISP + WTB + WSHL + WEXP + WHDR + WHW 

WMISC= WT * .25 

WDRY= WT * 1.25 

WLIQ= .005454 * DI**2 *NT*LTOT + 33.51 * DSHL**3 +STMLD/226935. 

WET= WDRY + WLIQ 

TONS= WET / 2240. 

WEIGHT OF MISCELLANEOUS COMPONENTS (LB.) 
TOTAL DRY WEIGHT OF CONDENSER (LB.) 
Lote itOulD WEIGHT (LE. ) 
TOTAL WET WEIGHT OF CONDENSER (TONS) 





C CONDH= 


Bevis 


COND = LHW + DPTHDR + LTOT 
BOXVOL= DSHL*¥*2 * (CLTOT + DPTHDR) + DHW**2 * LHW 
CONDENSER, HELGHT (FT. ) 


C BOXVOL= CONDENSER ENCLOSED BOX VOLUME (FT¥3 ) 


C 


© 


©) @n@iiG ©) 


C3°Gy G2 ©) 


l 


1 


ARG14= (LHW + LTOT/2.) * (WOTS + WITS + WTSP + WSHL + WEXP) 
+ (LHW/2.) * WHW + CONDH/2. * WMISC 

EA CGONMEG .Gr. 1) THEN 

DRYCG= (ARG14 +(LHW ~- DPTHDR/2.)*WDHDR/2. + (LHWtLTOT+DPTHDR/2.) 

* (WCOVER + WUTUBE) + (LHW + LTOT/2.) * WTB) / WDRY 

ELSE 

DRYCG= (ARG14 + (LHW + LTOT/2.) * (WTB + WHDR)) / WDRY 

END IF - 

ARG15= STMLD / 3690. * 61.5 

ARG16= WLIQ - ARGI5 

WEmeGC=—(DRYCGG * WDRY + ARG16 * (LHW + LTOT/2.) + ARG15 * VHW / 
Ses 2 Ss) / WET 


DRYCG=HEIGHT OF CENTER OF GRAVITY ABOVE CONDENSER BOTTOM FOR CONDENSER 


SDR Y WELCH CET.) 


WETCG=HEIGHT OF CENTER OF GRAVITY ABOVE CONDENSER BOTTOM FOR CONDENSER 


HT= 


wien WEIGHT CFT.) 


MNCCONEIG .GT./1)° THEN 

i= nan * C(CLIOLT + DIB/2.) * N 
HWB= (1.5 + .42 * (VM - 8.)) / 
MeeGle? 6 8* (VM = 6.)) / 
ELSE 

HT= FFT * LTOT * NPASS * VM*¥*2 / (DI * 5.353) 
HWB= 1.5 + .42 * (VM - 8.) 
HE= 1.2 + .6 * (VM - 6.) 
END IF 


Pome Vila CDE 5s 3 53 ) 


A 
2 e 
2 


Hee 9.7 —~ .0033 38% GPM 


HeeEGLtLONAL HEAD LOSS FOR TUBES (FT. ) 


ives WATERBOX INLET & OUTLET LOSSES (FT.) 


HE= 
HLP= 


TOTHL= 
SYSL= 
PMPWR= 


foe END LOSSES (CFT. ) 
SEAWATER CIRCULATING LOOP PIPING LOSSES (FT.) 


hOPAL= Hl + HWB + HE 

SYSL= TOTHL + HLP 
PMPWR= .000352 * GPM * SYSL 

TOTAL FRICTIONAL HEAD LOSS FOR CONDENSER (FT.) 

TOTAL FRICTIONAL HEAD LOSS FOR CONDENSER AND SYSTEM PIPING(CFT.) 
TOTAL SYSTEM PUMPING POWER (HP) 


A= N 
OUTPUT(N,1)= A 
OUTPUT(N,2)= DSHL 





eZ 


2.6 


7 


198 


OUTPUT(N,3)= CONDH 
OUTPUT(N,4)= BOXVOL 
OUTPUT(N,5)= WET 

OUTPUT(N,6)= PMPWR 


* * CALCULATION RESULTS - OUTPUT(DATA FILE) * * * * 

WRITE(KOUT,190) QT,TOUT,TNT 

FORMAT(1X,’. . CONDENSER HEAT LOAD: Weaenoms 7 CR TU HR) E25 
1. OUTLET COOLANT TEMP: iw He, 2) /T2.°.., TOTAL NUMBER, © 
LF TUBES: ‘’,F7.1/) 

WRITE(KOUT,192) TOTL,AVGHW,AVGHC,AVGU 

NoewnGleo 2 ERRECTIVE TUBE LENGTH: ’,1T39,F5.2,° (FT.)’/T2,’s . 
1 AVG. HEAT TRNFR. COEFF. C.W.:’,1738,F6.0,’ (BIU/HR-FT**2-DEG.F)’/T 
12,’. . AVG. HEAT TRNFR. COEFF. COND.:’,1T38,F6.0,’ (BIU/HR-FT**2-DE 
Men) /T2.°. . AVG. OVERALL HEAT TRNFR. COEFF.:’,T38,F6.0,’ (BTU/HR 
l-FT**2 -DEG.F)’/) 

WRITE(KOUT,194) LTOT,LANE,DTB,ATB,VTB,DTS,ATS,WEXP,WMISC, LHW, 
1 DPTHDR 

HORM Cia sD TOR = ~.F5.2.T19.° LANE = ’,F5.2,137,°DTB = °,F6.2,T5 
meEeuIPe =) on? /T2,°VIB = °.F6.2,7T19,°DTS = °,F5.2,1737,°ATS = °,F6 
1.2///T12,’°**** DATA OUTPUT - WEIGHT & VOLUME CALCULATIONS ****‘//T 
12,’WEXP = ’,F7.1,T19,’WMISC = ’,F7.1,T37,’LHW = ’,F5.2,1T53,’DPTHDR 
[eee F5.2///T30,’ MATERIAL’ ,T47,’ THICKNESS’ ,1T64, ‘WEIGHT’ /T26, “DENSI 
mane yrit*3 )°.T49,°(IN.)’ ,T65,’(LB.)’) 

IF(INDEX1 .GT. 1) THEN 

WRETECKOUT,195) ITSD,TIS,WITS 


FORMAT(T2,’TUBE SHEET----------- Pose Sle sO. hoi 6G Fh GOO) 

ELSE 

WRITE(KOUT,196) OTSD,TOTS,WOTS ,ITSD,TIS,WITS 

FORMAT(T2,’OUTER TUBE SHEET----- Ze io teen | 149 06.4.1 64 .h6.0/ Loe 
l ‘INNER TUBE SHEET----- ‘ (731,F5.1,749,F6.4,1T64,F6.0) 

END IF 

WRITE(KOUT,197) TSPD,TTSP,WTSP,TBD,WTB,SHLD,TSHL,WSHL,HWD,THW, 
i WHW,HDRD, THDR,WHDR,WDRY 

FORMAT(T2,’TUBE SUPPORT PLATE--~-’ ,T31,F5.1,1749,F6.4,T64,F6.0/T2, 
1 ‘TUBE BUNDLE---------- rer lean ot tees” TGA. Te O) Pee 
1 ‘CONDENSER SHELL------ Peete > 1069 66.4 164 Po. 0/02. 
l ‘ HOTWELL-------------- Weiser 5 sl Th90 5 6.4.164. FoeO/T2. 
1 ‘WATERBOX------------- Puen oe. T296r6.4 164. bo.0 1) 12 
1 ,’. » TOTAL CONDENSER DRY WEIGHT= ‘’,F8.1,’ (LB.)’) 


WRITE(KOUT,198) WET,TONS,CONDH,DSHL,BOXVOL,DRYCG,WETCG,TOTHL, 
1 SYSL,PMPWR 

MOR MAC Tx) 4 TOTAL CONDENSER WET WEIGHT= °’,F8.1,’ (LB.)‘/T35, 
ion? , (TON)’//T2,°’. . TOTAL CONDENSER HEIGHT= ’,F6.2,° (FT.)‘’/T2, 
[ere OUTER SHELL DIAMETER=  °,F6.2,° (FT.)’/T2,’. . ENCLOSED BOX 
IVOLUME= °° ,F7.1,’ (FT**3)°/T6,’DRYCG = ’,F6.2,T24,’°WETCG = ’,F6.2 
wet. CONDENSER FRICTIONAL HEAD LOSS= ’,F5.1,° (FT.)’/T2,’. . 
MmEOTAL SYSTEM HEAD LOSS= ,1T38,F5.1,° (FT.)’/T2,’. . TOTAL SYSTEM PU 





Seyae 


MmieINnG POWER= ,T38,F5.1,° (HP)’///) 


10 CONTINUE 
WRITE(KOUT,200) 
G0 FORMAT(’1’,T26,’**** DATA SUMMARY ****’//T4,’CONDENSER’ ,T16,’SHE 


mnie i2 7. TOTAL’ ,136, ENCLOSED’ ,T48,’°TOTAL WET’ ,T61,’TOTAL SYSTEM’ / 
ITS, ‘NUMBER’ ,T15, ‘DIAMETER’ ,126, ‘HEIGHT’ ,T35, ‘BOX VOLUME’ ,T49, “WEIG 
Mar’ ,T60, PUMPING POWER’ /T16, AG a? Pee rT 2) 136, (REXe3 )’ -T50, 
econ.) ’ ,T64,’(HP)”) 


@ 
DO 90 N8= 1, NCOND 
Mors Gouna 202 )(OUTPUT(NS,J),J=1,6) 
202 FORMAT(T6,F3.0,T15,F6.2 ,1726,F6.2 ,736,F7.1,T49 2 ol), WSS 1) 
90 CONTINUE 
STOP 


END 
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TABLE 2 


Properties of Multiple-Helix Internal Ridged Tubes 


tt ee 


Root Fin Outside ID 
Tube Nominal diameter d,, count, area, (max) d;, No. of 
Symbol no. diameter, in in fins/in ft? /ft in starts 
aA 5» Wao 3 0.623 (Stripped) 0.163 0.573 Se 
> 30 3 0.627 26.4 0.640 0.575 6 
Vv 22 i 0.625 26 0.640 0.569 6 
q 27 3 0.622 26.5 0.640 0.572 6 
A 28 4 0.624 26 0.640 0.573 5 
> 31 3 0.624 26.6 0.640 0.576 6 
v. 29 3 0.625 26.1 0.640 0.575 5 
« 5 | 0.633 38.0 0.330 Osi 8 
©. 37 3 0.624 33.5 0.901 0.574 10 
40 3 0.627 27.3 0.689 0.561 10 
O 4] 3 0.628 38.1 0.852 0.572 12 
<J 9 I 0.628 38.5 0.901 0.575 10 
oO 21 4 0.740 26 0.640 0.684 6 
eB 19 3 0.745 (Stripped) 0.195 0.692 G 
44 4 0.627 41.0 0.574 6 
ae 43 i. 0.628 41.0 0.573 10 
Oo 42 4 0.626 41.0 0.901 0.573 10 
46 3 0.627 41.2 0.573 10 
45 4 0.627 41.2 Oss 7 10 
Oo 13 1 0.883 26 0.841 0.820 6 
> 32 1 0.877 26 0.871 0.825 6 
© 25 1 0.880 26 0.841 0.816 6 
@ 24 ! 0.878 . 26 0.841 0.814 6 
ra) 23 1 0.880 - 26 0.841 0.816 6 
O 26 ! 0.864 ola]! 0.841 0.815 6 
Intermal ridging : 
Internal aspect ratios ID of 
Heighte, Pitch p, _ - envelope 
Symbol in in e/d; e/p p/d; tube, in 
A 0.0125 0.475 0.0218 0.0263 0.829 1.000 
> 0.0162 0.279 0.0282 0.0581 0.485 1.000 
Vv 0.0165 0.320 0.0288 0.0516 0.558 1.000 
<q 0.017 0.385 0.0297 0.0442 0.673 1.000 
A 0.019 0.475 0.0332 _ 0.0400 0.829 1.000 
> 0.0198 0.287 0.0344 0.0690 0.498 1.000 
¥ 0.0207 0.469 0.0360 0.0441 0.816 1.000 
«i 0.018 O210 0.0315 0.0849 0.371 1.000 
© 0.0200 0.166 0.0348 0.1205 0.289 1.000 
0.6175 0.170 0.0312 0.1029 0.303 "1.000 
oO 0.0215 0.138 0.0376 0.1558 0.241 1.000 
<J 0.0204 0.191 0.0355 0.1070 0.332 1.000 
a) 0.017 0.391 0.0249 0.0435 05572 . 1.2348 
3 CLOT 0.285 0.0246 0.0596 0.412 1.000 
0.021 0.207 0.0366 0.101 0.361 = 
0.021 0.124 0.0366 0.169 0.216 = 
O - 0.024. 0.0949 0.0419 0.253 0.166 1.000 
0.021 0.094 0.0367 0.223 0.164 a 
0.015 0.094 0.0260 0.1596 0.163 = 
Oo 0.0178 0.333 0.0217 0.0535 0.406 1.5936 
Fr 0.0193 0.335 0.0234 0.0576 0.406 1.5936 
2 0.0205 0.340 0.0253 0.0603 0.420 1.5936 
re) 0.0205 0.330 0.0252 0.0621 - 0.405 1.5936 
9 0.0205 0.338 0.0251 0.0607 0.414 1.5936 
© 0.021 0.340 0.0258 





0.0618 0.417 15936 





TABLE 6 Friction Factor Characteristics 
of Multiple-Helix Internal Ridged Tubes 





Tube 
no. fri Yr 
12 Gige2 0 
30 0.64 —0.00039 
22 0.697 —0.00017 
27 0.72 — 0.00026 
28 0.72 — 0.00028 
31 0.61 —0.00095 
29 0.68 —0.00064 
38 0.61 —0.00109 
a9 0.54 —0.00392 
40 0.627 —0.00080 
41 0.57 -—0.00259 
9 0.59 ' 0.00197 
21 0.70 —0.00014 
19 0.626 0 
44 0.53 —0.00180 
43 0.55 +0.00017 
42 0.58 + 0.00750 
46 0.54 + 0.00275 
45 0.52 —0.00159 
13 0.63 +0.00024 
32 Gao + 0.00090 
25 0.645 + 0.00032 
24 0.64 —0.00035 
125 0.637 + 0.00028 
26 0.64 


FIGURE 11 Friction Factor Curves for 
Multiple-Helix Internal Ridged Tubes 
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FIGURE 12a 
Operands for friction factor equation versus geometric aspect 
ratio e/l for multiple-helix internal ridging with p/d,2 0.36 


QO 0,004 0.008 0.012 0.016 0.020 0.024 0.028 
e/l 





FIGURE 12b 
Operand for friction factor equation versus geometric aspect 
ratio e/l for multiple-helix internal ridging with p/d. = 0436 
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